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Vorwort 


Basic ist als Programmiersprache wohl je¬ 
dermann geläufig, der sich mit Mikrocom¬ 
putern beschäftigt. Schon bisher wurde 
viel über Basic geschrieben — die Art der 
Programmierung, die verschiedenen Dia¬ 
lekte, aber kaum etwas über die Realisie¬ 
rung von Basic-Interpretern. Hier soll nun 
eine Möglichkeit gegeben werden, hinter 
die Kulissen zu sehen und nicht nur in der 
Lage zu sein, in Basic programmieren zu 
können, sondern auch einen Basic-Inter- 
preter selbst zu schreiben oder den hier 
beschriebenen Interpreter zu erweitern, 
umzubauen oder eigene Ideen hinzufügen 
zu können. Durch das bessere Verständnis 
der Wirkungsweise eines Interpreters wird 
der Leser auch in der Lage sein, Basic-Pro- 
gramme wirkungsvoller zu schreiben und 
manche Eigenheiten besser zu verstehen. 

Das Buch gliedert sich im Prinzip in 
vier Abschnitte: Nach einer prinzipiellen 


Einführung über die unterschiedliche Ar¬ 
beitsweise von Interpretern und Compiler 
wird das „RDK Basic” anhand eines Li- 
stings und Syntaxdiagramme ausführlich 
behandelt. Dann folgt ein Abschnitt, der 
insbesondere den Z80-Besitzern gilt: ein 
12-K Byte-Basic mit sehr leistungsfähigem 
Befehlssatz, und schließlich für Z8000-Be- 
sitzer das RDK-Basic als Z8000-Variante, 
wobei hingegen der Rest des Buchs über¬ 
wiegend in 8080-Maschinensprache ge¬ 
schrieben ist. 

Auch für Leser, die keinen der genann¬ 
ten Prozessoren besitzen, ist es leicht, die 
Programme zu verstehen und ggf. für den 
eigenen Prozessor aufzubereiten. 

Aber auch Leser, die sich ,,nur” in die 
Assemblersprache einarbeiten wollen, wer¬ 
den in den Listings viele Tricks und Kniffe 
kennenlernen und Einblick in die Program¬ 
mierung gewinnen. 

Rolf-Dieter Klein 
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1 Mikrcxx)mputer und Basic 


B.A.S.I.C. (Beginners All Purpose Symbol- 
ic Instruction Code) wurde 1962 von John 
Kemeny und Thomas Kurtz „erfunden”. 
Wegen der leichten Erlernbarkeit und der 
einfachen Realisierung wurde es sehr 
schnell bei Mikrocomputern als Program¬ 
miersprache eingesetzt und ist jetzt in 
einer Vielzahl von Dialekten und Erweite¬ 
rungen auf dem Markt. 

Gleich zu Beginn der Mikrocomputerge¬ 
schichte kamen Basic-Interpreter auf. Sie 
waren zunächst sehr einfach und mit vie¬ 
len Einschränkungen versehen. Basic wur¬ 
de dann immer weiter ausgebaut, und es 


kamen sogar spezielle Basic-Rechner wie 
Apple, PET, CBM, TRS-80 usw. heraus. 

Bei Mikrocomputer-Neuentwicklungen 
gibt es nun immer schon schnell einen da¬ 
zugehörigen Basic-Interpreter. Basic be¬ 
sitzt neben dem großen Vorteil der leich¬ 
ten Erlernbarkeit auch den Vorteil, daß 
Programmtests schnell durchgeführt wer¬ 
den können und mit wenig Aufwand ein 
lauffähiges Programm erstellt werden kann. 

In den folgenden Kapiteln wird gezeigt, 
wie es möglich ist, einen Basic-Interpreter 
zu konstruieren. 
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2 Realisierungsmöglichkeiten von Basic 


Der Mikrocomputer hat die Aufgabe, die 
eingegebenen Basic-Kommandos und Pro¬ 
gramme zu verstehen und auszuführen. 
Dafür gibt es im Prinzip drei Möglichkei¬ 
ten: 

Im ersten Fall versteht der Computer 
die Basic-Befehle unmittelbar und führt 
sofort, nachdem er einen Befehl verstan¬ 
den hat, diesen aus. Dies nennt man Inter¬ 
pretation. Das dazugehörige Maschinenpro¬ 
gramm wird Interpreter genannt. 

Dann gibt es noch die Möglichkeit die 
Basic-Befehle in ein Maschinenprogramm 
umzuwandeln und dann auszuführen. Es 
wird dazu ein Compiler benötigt. Die dritte 
Art stellt gewissermaßen eine Mischung aus 
Interpreter und Compiler dar, die Basic- 
Befehle werden in meist ein Byte lange Ab¬ 
kürzungen („Tokens”, Intern-Darstellung) 
umgewandelt, und diese werden nach 
„RUN” interpretiert. Im folgenden sollen 
diese drei Arten anhand von kurzen Bei¬ 
spielen weiter verdeutlicht werden. 


2.1 Der Interpreter 

Ein Basic-Befehl wird erkannt und dann 
sofort ausgeführt. Um die Arbeitsweise 
eines Interpreters besser verstehen zu kön¬ 
nen, soll eine kleine Programmiersprache 
erfunden werden, für die ein Interpreter 
gebaut wird. 

Die Programmiersprache besteht aus 
einbuchstabigen Befehlen, die von einem 
weiteren Byte, dem Operanden gefolgt 
sind. Sie ähnelt damit zwar mehr einer As¬ 
semblersprache für einen Prozessor, als ei¬ 
ner höheren Programmiersprache, doch 
sonst wären wir ja schon bei dem „RDK- 


Basic”, und es soll hier wirklich nur das 
Prinzip verdeutlicht werden. 


Die Befehle lauten im einzelnen: 


LOAD (adr) 


STORE adr 


ADD (adr) 


NEG 


JUMP adr 


JMPNZ adr 


La Laden des auf der 
Adresse „adr” stehen¬ 
den Wertes in den 
Akkumulator. 

Sa Der Inhalt des Akku¬ 
mulators wird auf die 
Adresse ,,adr” gespei¬ 
chert^ 

Aa Zum Inhalt des Akku¬ 
mulators wird der In¬ 
halt des auf der Adres¬ 
se „adr” stehenden 
Wertes addiert. Das 
Ergebnis steht also 
im Akku. 

Nd Der Inhalt des Akku¬ 
mulators wird bitwei¬ 
se komplementiert, 
„d” steht für 
„dummy” und be¬ 
sitzt keine Bedeutung, 
muß allerdings vor¬ 
handen sein. 

Ja Sprung auf die Adres¬ 
se ,,adr” im Pro¬ 
grammteil, dort wird 
der nächste Befehl 
ausgeführt. 

la Falls der Inhalt des 
Akkumulators un¬ 
gleich Null ist, wird 
auf die Adresse „adr” 
im Programmteil ge¬ 
sprungen. 
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2.1 Der Interpreter 


OUTHEX (adr) Oa Der Inhalt der Spei¬ 
cherzelle auf „adr” 
in sedezimaler (hexa¬ 
dezimaler) Form auf 
die Konsole ausgege¬ 
ben. 

GETHEX (adr) Ga Von der Konsole wird 
ein sedezimaler (hexa¬ 
dezimaler) Wert geholt 
und auf die Speicher¬ 
zelle „adr” geschrie¬ 
ben. 


CRLF 


ZEICH (adr) 


HALT 


Cd Es wird ein Carriage 
Return Line Feed 
(CRLF, Wagenrück¬ 
lauf/Zeilenvorschub) 
an die Konsole ausge¬ 
geben. „d” steht 
wieder für „dummy”, 
da bei CRLF keine 
zusätzlichen Parame¬ 
ter nötig sind. 

Za Der Inhalt der Spei¬ 
cherzelle „adr” wird 
als ASCII-Zeichen in¬ 
terpretiert und dann 
auf der Konsole aus¬ 
gegeben. 

Hd Das Programm ist be¬ 
endet und es wird 
ein Stop ausgeführt, 
„d” steht für 
„dummy”, da kein 
weiterer Parameter 
nötig ist. 


Die hypothetische Maschine mit dem obi¬ 
gen Befehlssatz besitzt einen Akkumulator 
und kann 256 Bytes Programm und 256 
Bytes Daten adressieren. 

Ein Programm wird durch Hintereinan¬ 
derschreiben der obigen Befehle gebildet. 
Dabei werden Parameter in binärer Form 
direkt hinter das Befehlswort geschrieben. 

Eine Besonderheit ist, daß Daten adreß- 
mäßig vom Programm völlig getrennt sind 


und Programmteile auch vom Programm 
her nicht erreichbar sind. Doch das ist ähn¬ 
lich zu Basic, denn dort kann im Normal¬ 
fall auch nicht vom Programm aus auf das 
Programm selbst zugegriffen werden. Ein 
Programm in unserer Programmsprache 
sieht z.B. wie folgt aus: 

G00 G(|)l L(l)(|» A(()l sH 0(|)(t) H(|)(J 
(Parameter in Sedezimal) 

Ein Speicherauszug (sedezimal) sieht wie 
folgt aus: 

47 (|)((l47(|ll 4C(^(^41 (jll 53 (^(|) 4F(^(j)48 (JxJ 

Das Programm bewirkt das Einlesen zweier 
Zahlen, addiert diese, dann wird die Summe 
ausgegeben und das Programm mit einem 
Halt beendet. 

A/?ö. 2.1-1 zeigt die Hauptschleife des 
Interpreterprogramms. Als erstes wird der 
Programmzähler mit einem Startwert vor¬ 
besetzt. Von dieser Adresse wird nach dem 
erstmaligen Start des Interpreters der erste 
Befehl geholt. 

Nun beginnt die eigentliche Schleife. Es 
wird der Befehl vom Speicher geholt. Da¬ 
bei wird hier die Befehlskurzbezeichnung 
sowie der darauf folgende Datenwert gela¬ 
den. Daher ist es auch nötig, im Programm 
immer einen Parameter mit anzugeben, 
auch wenn der Befehl selbst ihn gar nicht 
benötigt, zum Beispiel beim HALT-Befehl. 
Der Programmzähler wird dann erhöht — 
in unserem Fall um den Wert zwei, da ein 
Befehl zwei Speicheradressen belegt. Es 
folgt nun die Abfrage auf die einzelnen Be¬ 
fehle. Trifft einer der Fälle zu, so wird das 
dazugehörige Teilprogramm angesprungen. 
Wurde kein Befehl erkannt, so wird auf 
eine Fehlerroutine gesprungen. 

Abb. 2.1-2 zeigt die einzelnen Teilpro¬ 
gramme. Bei LOAD zum Beispiel wird der 
Parameter des Befehls als Adresse interpre¬ 
tiert und der Inhalt dieser Speicherzelle 
wird in den Akkumulator geladen. Beim 


11 


2 Realisierungsmöglichkeiten von Basic 


START ^ 

Abb. 2.1-1 Hauptschleife 

( lOA» ) 

0 ^ 


des Interpreters 





(DATA)—AKKU 



—^— 

(goto loo^ 


( STORE ^ 

Lade Befehl 

AKKU-Speicher 

Speichere Befehl 

(goto loop) 

Addieren 

(TST) 


(DATA)-1-AKKU 

Negieren 

— AKKU 

Sprung unbedingt 

(goto LOOP^ 


COMPL(AKKU) 
— AKKU 



Abb. 2.1-2 Teilprogramme des Interpreters 

Sprung, wenn nicht 0 


Hex Ausgabe 


Hex Eingabe 


Carriage return 


Zeichenausgabe 


Halt der CPU 


STORE-Befehl ist es entsprechend umge¬ 
kehrt. Beim Sprungbefehl JUMP wird der 
Parameter direkt in den Programmzähler 
gespeichert und damit der Sprung ausge¬ 
führt. Beim bedingten Sprung wird zuvor 
noch der Akkumulatorinhalt auf Null ge¬ 
testet und der Sprung ausgeführt falls der 
Inhalt ungleich Null ist. 

Beim HALT-Befehl wird die Programm¬ 
ausführung gestoppt und eine Meldung 
auf der Konsole ausgegeben. Es wird an¬ 
schließend gewartet bis eine Taste betätigt 
wurde und dann der Interpreter von neuem 
gestartet (Rücksetzstart). Tritt ein Fehler 
auf, so geschieht genau das Gleiche. Es 
wird nur eine andere Meldung ausgegeben. 
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2.1 Der Interpreter 



zu Abb. 2.1-2 


Abb. 2.1-3 zeigt das Listing des Pro¬ 
gramms. Das Programm beginnt mit drei 
Sprüngen. Der erste Sprung führt auf den 
eigentlichen Programmstart mit der Marke 
STARTE. Dann folgen zwei Sprünge mit 
absoluten Sprungzielen. Der erste Sprung 
mit der Marke CI führt auf eine Konsolein¬ 
gaberoutine und es wird ein Zeichen von 
der Tastatur der Konsole im Akkumulator 
übergeben. Der Sprung CO enthält im C-Re- 
gister ein Zeichen, welches vom Unterpro¬ 
gramm auf der Adresse BEOCH an die 
Konsole ausgegeben wird. Die Unterpro¬ 
gramme enden mit einem RET-Befehl, ob¬ 
wohl es auf den ersten Blick sehr unge¬ 
wöhnlich scheint, sie mit einem Sprungbe¬ 


fehl aufzurufen. Aber die Marken CI und 
CO werden mit CALL-Befehlen angespro¬ 
chen und somit stimmt die Unterpro¬ 
grammaufruffolge wieder. 

Das Programm selbst entspricht ziem¬ 
lich genau dem Flußdiagramm. Das Re¬ 
gisterpaar HL wird als Programmzähler 
verwendet. Dieses wird nach dem Start mit 
der Adresse des Programmfeldes besetzt. 
Danach erfolgt der Eintritt in die Schleife 
LOOP. Der Befehl wird in den Akku des 
Prozessors 8080 geholt und dann HL um 
eins erhöht, so daß das Registerpaar nun 
auf den Parameter des zuvor eingelesenen 
Wertes zeigt. Dieser Parameter wird in das 
Register E eingelesen und HL erneut um 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
.MAIN. - 


PAGE 1 


0100 


0100 

0103 

0106 


0109 
9109 
010C 
910C 
01 0 D 
910E 
010F 
0110 
0112 
0114 
0117 
0119 
011C 
011E 
0121 
0123 
0126 
0128 
012B 
0120 
0.130 
0132 
01.35 
0137 
0J3A 
013C 
013F 
0141 
01.44 
0146 
0149 


014C 

014C 

014D 

0150 


0153 

0153 

9156 

0157 


.phex 
. pabs 
. loc 100h 
* 

;************************ 
;* Mini Interpreter * 

;* RDK 800214 * 

;************************ 


C3 0109 

Start: jmp 

starte 

C3 BE09 

cL: jmp 

0be09h ;ConsoL Eingabe i.a A 

C3 BE0C 

co: jmp 

5 

0be0ch ;ConsoL Ausgabe ln C 


5 

5 

starte: 

;Interpreter Hauptprogramm 

21 1000 

Ixl h,prg 

;festgeLegte Prog Anfadresse 


Loop: 

»HauptschLe l-Fe 

7E 

mov a,m 

;be-FehL ho Len 

23 

Inx h 

5 

5E 

mov e,m 

5 

23 

Inx h 


1611 

mvl djdata 

»highorder - const data 

FE4C 

cpl "L" 

»Zeichen L dann LOAD 

CA 014C 

jz Load 


FE53 

cpl "S" 

•»STORE 

CA 0153 

jz störe 


FE41 

cpl "A" 

;add 

CA 015A 

jz add 


FE4E 

cpl "N" 

;neg 

CA 0166 

jz negate 


FE4A 

cpl "J" 

;JUMP 

CA 0170 

jz jump 


FE4 9 

cpl 

;JMPNZ 

CA 0176 

jz jmpnz 


FE4F 

cpl "0" 

; OUTHEX ^135 2.1-3 Listing des Mini- 

CA 0180 

jz outhex 

Interpreters 

FE4 7 

cpl ••G" 

;GETHEX 

CA 0187 

jz gethex 


FE43 

cpl "C" 

;CRLF 

CA 0197 

jz crLf 


FE5A 

cpl "Z" 

;ZEICH 

CA 01 A4 

jz zelch 


FE48 

cpl "H” 

ilHALT 

CA 01AC 

jz haLt 


C3 01E4 

jmp error 

5 


5 

»elnzeLne 1 

BefehLe 


5 

Load: 


lA 

Ldax d 

;data Laden 

32 021E 

sta aKku 

»ln vlrtueLLen akku 

C3 010C 

jmp Loop 

5 

»-fert l g 


? 

störe: 


3A 021E 

Lda akku 

»hoLen akku 

12 

stax d 

;abspelehern 

C3 01 0C 

jmp Loop 
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015A 


? 

add: 


015A 

1 A 

Idax D 

;Laden wert 

015B 

47 

mov b,a 


01 5C 

3A 021E 

Ida akKu 

;+akku 

015F 

80 

add b 


0160 

32 021E 

sta akku 

;nach akku 

0163 

C3 010C 

jmp Loop 

5 


0166 


5 

negate: 


0166 

3A 021E 

Lda akku 


0169 

2F 

cma 


916A 

32 021E 

sta akku 

;1 er kompLem^mt 

016D 

C3 010C 

jmp Loop 

5 


0170 


? 

jump ! 


0170 

1610 

mvl d,prgh 

;uur innerhaLb prg 

0172 

EB 

xchg 

; neuer pc 

0173 

C3 010C 

jmp Loop 

5 


0176 


? 

jmpnz: 


0176 

3A 021E 

Lda akku 


0179 

B7 

ora a 

JfaLLs nuLL nicht 

017A 

CA 010C 

jz Loop 


017D 

C3 0170 

jmp jump 

5 

;ule Jump weiter 

0180 


5 

outhex! 


0130 

lA 

Ldax d 

;wert Laden 

0181 

CD 01B8 

caLL prac 

;ausgeben 

0184 

C3 010C 

jmp Loop 



0187 



gethex s 

0187 

CD 

01D0 

oaLL getdlg 

018A 

87 


add a 

0188 

87 


add a 

018C 

87 


add a 

018D 

87 


add a 

018E 

47 


mov b,a 

018F 

CD 

01D0 

caLL getdlg 

0192 

80 


add b 

0193 

12 


stax d 

0194 

C3 

010C 

jmp Loop 

5 

0197 



5 

er L-F: 

0197 

0E0D 

mvl c,0dh 

0199 

CD 

0106 

caLL CO 

019C 

0E0A 

mvl c,9ah 

019E 

CD 

0106 

caLL CO 

01 Al 

C3 

010C 

jmp Loop 


PAGE 2 


lugen 


Abb. 2.1-3 
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01 A4 


ze ich: 


01 A4 

lA 

Idax d 

;Zeichen ausgabe 

01A5 

4F 

mov c,a 


01 A6 

CD 0106 

call co 


01 A9 

C3 010C 

jmp loop 

5 


01AC 


halt: 


01AC 

11 020F 

Ixi d,hmess 

;meldüng an consnle 

01 AF 

CD 01F0 

call print 


01B2 

CO 0103 

call ci 


01B5 

C3 0100 

jmp Start 

;Zeichen eingeben dann 


rset 


weitere Unterprogramme 


0188 

01B8 

F5 

91B9 

IF 

01BA 

IF 

01BB 

IF 

01BC 

IF 

01BD 

CO 01C1 

01C0 

Fl 

01C1 

01 CI 

E60F 

91C3 

C630 

01C5 

FE3A 

01C7 

DA 01CC 

01 CA 

C627 

01CC 

01CC 

4F 

01CO 

C3 0106 


01D0 


01D0 

CO 0103 

01D3 

4F 

0104 

CO 0106 

0107 

FE30 

0109 

38F5 

01 DB 


01 DB 

FE3A 

0100 

3802 

01OF 

0607 

01E1 


01E1 

E60F 

01E3 

C9 


01E4 



01E4 

11 

01FB 

01E7 

CO 

01F0 

01EA 

CO 

0103 

01 ED 

C3 

0100 


01F0 


01F0 

lA 

01F1 

13 


prac : 

push psy 

rar 

rar 

rar 

rar 

calL outh 
pop psy 
outh" 
ani 0-Fh 
adi "0" 
cpl 

je outch 
adi 

outch: 
mov c,a 
jmp CO 


getdig: 
call ci 
mov c,a 
call CO 
epi "0" 

Jrc getdig 
conv: 
epi "9"+l 
Jrc nosub 
SU i 7 
nosub: 
ani 0fh 
ret 


error: 

Ixi d,errmess 
call print 
call ci 
jmp Start 
? 

1 

pr int! 

Idax d 
inx d 


Abb. 2.1-3 


;nach Zeichen weiter rset 
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01F2 

B7 

ora a 


01F3 

C8 

rz 


01F4 

4F 

mov c,a 


01F5 

CO 0106 

call, CO 


01F8 

C3 01F0 

jmp prlnt 


01FB 


5 

errmess s 


01FB 

554E44454649 

.asclz "UNOEFINX 


0201 

4E4544204F50 

\E0 OP \ 


0207 

20434F4445 

\COOE 

Abb. 2.1-3 

020C 

0D0A00 

ii 


020F 


hmess: 


020F 

48414C542052 

.asclz "HALT REX 


0215 

455345543059 

XSET=Y 


02IB 

0D0A00 

n 


021E 

00 

1 

akku: .byte 0 ;ram zelle 

5 



;daten de-f ln It Ionen 


1000 


prg=l000h 

;programm auf 1000 bis 10ff max 

0010 


prgh=10h 


0011 


data=l1h 

5 

;daten von 1100 bis 11ff max 

1000 


5 

5 

.loc 1000h 

; testprogramm 

1000 

4700 

.byte "G",0 

;zuel Bytes eln lesen 

1002 

5A01 

.byte "Z",l 

;Ausgabe + Zeichen 

1004 

4C00 

.byte "L",0 

;Lade Wert 

1006 

4700 

.byte "G",0 

;Weiteren Wert Holen 

1008 

4100 

.byte "A",0 

;Addieren 

100A 

5A02 

.byte ••Z",2 

;Zeichen = 

100C 

5300 

.byte "S",0 

;Ergehnis 

100E 

4F00 

.byte "O",0 

;Ausgabe 

1010 

4300 

.byte "C",0 

;CRLF 

1012 

4A00 

.byte "J'*,0 
? 

;Sprung nach 0 

1100 


5 

.loc 1100H 


1100 

00 

.byte 0 


1101 

2B 

.byte 


1102 

30 

.byte "=" 

5 




5 

.end 
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•MAIN. 

- 


4-+++-f : 

SYMBOL TABLE 

+++-I-+ 

ADD 

015A 

AKKU 

CO 

0106 

CONV 

DATA 

0011 

ERRMES 

GETDIG 

01D0 

GETHEX 

HMEBR 

020F 

JMPNZ 

LOAD 

014C 

LOOP 

NOBUB 

01E1 

OUT CH 

OUTHEX 

0180 

PRAC 

PRGH 

0010 

PRINT 

STARTE 

0109 

STORE 

-BLNK. 

0000:03 X 

-DATA. 


eziE 


CI 

0103 

01 OB 


CRLF 

0197 

01FB 


ERROR 

01E6 

0187 


HALT 

01AC 

0176 


JUMP 

0170 

010C 


NEGATE 

0166 

01CC 


OUTH 

01C1 

0188 


PRG 

1000 

01F0 


START 

0100 

0153 


ZEICH 

01 A4 

0000« 

X 

.PR06. 

0000 


PAGE 5 


Abb. 2.1-3 


eins erhöht, so daß HL nun auf den näch¬ 
sten Befehl im Programmspeichergebiet 
zeigt. Das Register D wird mit der höher¬ 
wertigen Adresse des Datenbereiches gela¬ 
den, da mit dem Parameter zusammen nor¬ 
malerweise ein vom Programm getrennter 
Bereich adressiert wird. Nun wird der Ver¬ 
gleich mit dem Befehlsvorrat durchgeführt. 
Stimmt der im Register A vorhandene Be¬ 
fehl mit einem der abgefragten überein, so 
wird ein Sprung auf die dazugehörige Rou¬ 
tine durchgeführt. 

LOAD: Mit dem Befehl LDAX D wird 
der durch DE adressierte Wert in den Akku 
geladen. Er wird dann mit STA AKKU in 
den Akkumulator der hypothetischen Ma¬ 
schine gespeichert; anschließend findet 
ein Sprung zur Marke LOOP statt, und der 
Befehlszyklus wiederholt sich. 

STORE: Der Inhalt der Speicherzelle 
AKKU wird in der Speicherzelle die durch 
DE adressiert ist abgelegt. 

ADD: Es wird der Inhalt der durch DE 
adressierten Speicherzelle in das Register 
A geladen und anschließend nach Register 
B gerettet. Dann wird der Inhalt der Zelle 
AKKU in das Register A (Akku des 8080) 
geladen und mit dem Befehl ADD B die 
Addition ausgeführt. Das Ergebnis wird 
dann wieder in die Zelle AKKU zurückge¬ 
speichert. Hier ist ganz typisch das Verhal¬ 


ten des Interpreters zu sehen, daß sofort 
nach Erkennen des Befehls dieser ausge¬ 
führt wird und danach der nächste Befehl 
interpretiert wird. 

JUMP: Hier wird der Inhalt des Regi¬ 
sters D neu besetzt. Es wird der höherwer¬ 
tige Teil des Programmspeichergebiets in 
ihm abgelegt. Dann wird der Inhalt von 
DE mit HL vertauscht und dadurch der 
Sprung ausgeführt. 

JUMPNZ: Es wird zunächst der Inhalt 
der Speicherzelle AKKU auf Null überprüft. 
Ist der Inhalt Null, so wird zur Marke 
LOOP gesprungen und damit der Befehls¬ 
holzyklus normal weitergeführt. Im ande¬ 
ren Fall wird der Sprungbefehl ausgeführt. 

OUTHEX: Es wird der Inhalt der Spei¬ 
cherzelle, die durch DE adressiert ist, gela¬ 
den und dann mit einem Unterprogramm 
in sedezimaler Schreibweise ausgegeben. 

GETHEX: Eine sedezimale Zahl wird 
von der Konsole eingelesen und auf die 
Zelle (DE) gespeichert. Die Zahl muß da¬ 
bei fest mit zwei Stellen eingegeben wer¬ 
den. Die Konvertierung von ASCII nach 
binär geschieht dabei für jede Stelle mit 
der Routine GETDIG. 

Alle weiteren Routinen sind ähnlich 
aufgebaut. Am Schluß des Programms 
befindet sich noch ein kleines Programm¬ 
beispiel in der hypothetischen Sprache 
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2.2 Der Compiler 



JUMP 0 


Abb. 2.1-4 Programmbeispiel der hypothetischen 
Sprache 


(Abb. 2.1-4). Das Programm steht dabei 
auf der Adresse lOOOH und die Daten auf 
dem Bereich 1 lOOH. Das Programm hat 
die Aufgabe, zwei Bytes sedezimal einzu¬ 
lesen und die Summe auf der Konsole aus¬ 
zugeben. Bei dem Schreiben der Program¬ 
me ist darauf zu achten, daß ein Befehl 
aus zwei Bytes besteht, dem Befehlscode 
und dem Parameter und damit zwei Spei¬ 
cheradressen belegt werden. Bei Sprüngen 
ist stets ein gerader Adreßwert anzugeben. 


2.2 Der Compiler 

Die Arbeitsweise eines Compilers soll hier 
anhand der gleichen hypothetischen Spra¬ 
che gezeigt werden, wie sie schon im Ab¬ 
schnitt 2.1 für den Interpreter verwendet 
wurde. Der grundlegende Unterschied des 
Compilers zürn Interpreter ist, daß die hö¬ 
here Sprache nicht Schritt für Schritt aus¬ 
geführt wird, sondern zunächst einmal 
komplett in Maschinensprache übersetzt 
wird, und erst beim Start des so erzeugten 
neuen Programms wird das in der höheren 
Sprache geschriebene Programm ausgeführt. 

Der Vorteil eines Compilers liegt in der 
schnelleren Ausführungszeit des Programms 
der höheren Programmiersprache. Beim In¬ 
terpreter muß jedesmal, wenn ein neuer Be¬ 
fehl der Sprache erscheint, dieser zunächst 
erkannt und dann das dazugehörige Unter¬ 
programm aufgerufen werden. Beim Com¬ 
piler wird dieser Analyseprozeß nur ein¬ 
mal bei der Übersetzung durchgeführt und 
beim Starten des erzeugten Maschinenpro¬ 
gramms ist eine Analyse nicht mehr nötig. 
Dieser Unterschied fällt besonders bei 
Schleifen auf: Der Interpreter muß mit je¬ 
dem Durchlauf das Programm analysieren, 
der Compiler analysiert die gesamte Schlei¬ 
fe nur einmal — unabhängig davon, wie 
oft die Schleife eigentlich durchlaufen wer¬ 
den müßte. Bei unserer hypothetischen 
Sprache fällt dieser Unterschied zwar 
nicht so sehr ins Gewicht, aber immerhin 
sind die mit dem Compiler erzeugten Pro¬ 
gramme deutlich schneller als die durch 
den Interpreter ausgeführten. 2.2-1 
zeigt das Listing des Compilers. Der Com¬ 
piler beginnt zunächst mit der Sprungta¬ 
belle für die I/O-Vektoren. Sie sind je nach 
vorhandenem Computer entsprechend an¬ 
zupassen. Danach erfolgt die Definition 
eines Makros zur Vereinfachung des As¬ 
semblerprogramms. Wer noch nie mit 
Makros gearbeitet hat, dem sei hier eine 
kurze Erklärung gegeben: 

Ein Makro kann mit einem Unterpro¬ 
grammaufruf verglichen werden. Der 
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TDL Z80 
.MAIN. 


0100 


0100 

0103 

0106 


0109 

0109 

010A 

010B 

010C 

010D 

010E 

0111 

0112 

0113 


0115 

0115 

0118 

011B 

011E 

0120 

0126 

012C 

0132 

0138 

0138 

0139 

013C 

013F 

0141 

0143 

0144 

0147 

0148 

014B 

014E 

0151 

0153 

0158 


CP/M DISK ASSEMBLER VERSION 2.21 


.phex 
.pabs 
.loc 100h 

;* Mini Compiler * 

;* RDK 800316 * 

;********************* 

C3 0115 Start: jmp starte 

C3 BE09 cl: jmp 0be09h ;Consol Eingabe in A 

C3 BE0C co: jmp 0be0ch ;Consol Ausgabe ln C 

; Macro Definitionen 

.deflne PRlNTCa,7.bD = 

C 


0A 

Ixl b,.+8 
call Iprlnt 
jmpr y.b 
.asclz a 

7.b: 

1 

IprInt: 

Idax b 


B7 

ora a 


C8 

rz 


C5 

push b 

Abb. 2.2-1 Listing des Mini-Compilers 

4F 

mov c,a 


CD 0106 

call CO 


Cl 

pop b 


03 

Inx b 


18F4 

jmpr Iprlnt 




starte: 

;Compller Hauptprogramm 

21 1000 

Ixl h,prg 

;Adresse des Source Programms 

01 0120 

CD 0109 

prInt ' .Insert 

runtlme.asm ' r0dh3 C0ah!] 

1818 

2E696E736572 
742021?.72756E 
74696D652E61 
73602 f40D0A00 

loop: 


EB 

01 0141 

CD 0109 

1802 

4C00 

AF 

xchg 

prlnt "L" 




xra a 

CD 03D7 

call prac 


7B 

mov a,e 


CD 0307 

call prac 


01 0153 

CO 0109 

1805 

prlnt "H:'T0dh3 

C0ah3 

483A0D0A00 

EB 

xchg 
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0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


159 

7E 

mov a,m 

15A 

23 

inx h 

ISB 

5E 

mov e,m 

15C 

23 

inx h 

15D 

1611 

mvi d,data 

15F 

FE4C 

cpi -L" 

161 

CA 019E 

jz load 

164 

FE53 

cpi "S" 

166 

CA 01C4 

jz Store 

169 

FE41 

cpi "A" 

16B 

CA 01EA 

Jz add 

16E 

FE4E 

cpi "N" 

170 

CA 0245 

jz negate 

173 

FE4A 

cpi "J" 

175 

CA 027C 

jz jump 

178 

FE49 

cpi "I" 

17A 

CA 0292 

jz jmpnz 

17D 

FE4F 

cpi "0" 

17F 

CA 02CB 

jz outhex 

182 

FE47 

cpi "G" 

184 

CA 0309 

jz gethex 

187 

FE43 

cpi "C" 

189 

CA 02F2 

jz crlf 

18C 

FE5A 

cpi “Z" 

18E 

CA 0332 

jz zeich 

191 

FE4 8 

cpi “H" 

193 

CA 0369 

jz halt 

196 

FE45 

cpi "E" 

198 

CA 03A5 

jz final 

19B 

C3 0404 

jmp error 


»Befehl holen 

;Parameter 
5fuer constanten 


Abb. 2.2-1 


»Ende Zeichen 
»falsches Zeichen 


» einzelne Befehle 


19E 


load: 


19E 

01 01A6 

print "Ida 

II 

lAl 

CD 0109 



1A4 

1805 



1A6 

6C64612000 



lAB 

CD 03EF 

call outde 

»Parameter 

lAE 

01 01B6 

print "sta 

akku" C0dh3 C0ahD 

IBl 

CD 0109 



1B4 

180B 



1B6 

73746120616B 



IBC 

6B750O0A90 



ICl 

C3 0138 

jmp loop 



01C4 
01C4 
01C7 
01 CA 
01CC 
0102 
01 D7 
01 DA 
01DD 
01 DF 
01E4 
01E7 


störe 

01 01CC print 

CD 0109 
1806 

ÄC646120616B 
6B750D0A00 
01 01 DF print 

CD 0109 
1805 

7374612090 
CD 03EF 
C3 0138 


"Ida akku" C0dhD C9ah3 


"sta 


PAGE 2 


call outde 
jmp loop 
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01EA 


add: 

Abb. 2.2-1 

01EA 

01 01F2 

print "Ida 

II 

01ED 

CD 0109 



01F0 

1805 



01F2 

6C64612000 



01F7 

CD 03EF 

call outde 


01FA 

01 0202 

print 'mov 

b a'C0dhD C0ah3 

01FO 

CD 0109 



0200 

180A 



0202 

6O6F76206220 



0208 

610D0A00 



020C 

01 0214 

print "Lda 

akku"C0dh3 C0ah3 

020F 

CD 0109 



0212 

1808 



0214 

6C646120616B 



021A 

6B750D0A90 



021F 

01 0227 

print "add 

b"C0dhD C0ah3 

0222 

CO 0109 



0225 

1808 



0227 

61646420620D 



022D 

0A00 



022F 

01 0237 

print "sta 

akku"C0dh3 C0ah3 

0232 

CD 0109 



0235 

180G 



0237 

73746120616B 



023D 

6B750D0A00 



0242 

C3 0138 

jmp Loop 


0245 


negate: 


0245 

01 024D 

print "lda 

akku"C0dh3 C0ahD 

0248 

CD 0109 



024B 

180B 



824D 

6C646120616B 



0253 

6B750D0A00 



0258 

01 0260 

print "cma' 

’C0dh3 C0ahD 

025B 

CO 0109 



025E 

1806 



0260 

636D610D0A00 



0266 

01 026E 

print "sta 

akku'TBdhD CBahD 

0269 

CO 0109 



026C 

180B 



026E 

73746120616B 



0274 

6B750D0A00 



0279 

C3 0138 

jmp Loop 


027C 


Jump: 


027C 

1600 

mvl d,0 

;Labe Ls 00xxh 

027E 

01 0286 

print "jmp 

L" 

0281 

CD 0109 



0284 

1806 



0286 

6A6D70204C00 



028C 

CO 03EF 

caLL outde 

»LabeLnummer schreiben 

02BF 

C3 0138 

jmp Loop 


0292 


jmpnz: 


0292 

01 029A 

print "Lda 

akku"C0dhl C0ahD 

0295 

CD 0109 



0298 

1308 



029A 

6C646120616B 



02A0 

6B750D0A00 



02A5 

01 02AD 

prInt "ora 

a"C0dhD C0ahD 


22 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
■MAIN. - 


PAGE 4 


02A8 

CD 0109 


02AB 

1808 


02AD 

6F726120610D 


02B3 

0A00 


02B5 

1600 

mvl d,0 

02B7 

01 02BF 

prlnt "jnz L" 

02BA 

CD 0109 


02BO 

1806 


02BF 

6A6E7A204C00 


02C5 

CD 03EF 

call outde 

02C8 

C3 0138 

jmp loop 

02 CB 


outhex: 

02CB 

01 02D3 

prlnt "Ida '* 

02CE 

CD 0109 


0201 

1805 


02D3 

6C64612000 


02D8 

CD 03EF 

call outde 

02 DB 

01 02E3 

prlnt "call prac"C0dhD C0ahl] 

02 DE 

CD 0109 


02E1 

180C 


02E3 

63616C6C2070 


02E9 

7261630D0A00 


02EF 

C3 0138 

jmp loop 

02F2 


er If: 

02F2 

01 02FA 

prlnt "call crlf"C0dhD CBahD 

02F5 

CD 0109 


02F8 

180C 


02FA 

63616C6C2063 


0300 

726C660D0A00 


0306 

C3 0138 

jmp loop 

0309 


gethex s 

0309 

01 0311 

prlnt "call gethex"C0ahD C0dh3 

030C 

CD 0109 


030F 

180E 


0311 

63616C6C2067 


0317 

65746865780A 


031D 

0D00 


031F 

01 0327 

prlnt "sta " 

0322 

CD 0109 


0325 

1805 


0327 

7374612900 


@32C 

CD 03EF 

call outde 

032F 

C3 0138 

Jmp loop 

0332 


zeIch! 

0332 

01 033A 

prlnt "Ida " 

0335 

CO 0109 


0338 

1805 


033A 

6C64612000 


033F 

CD 03EF 

call outde 

0342 

01 034A 

prlnt 'mov c a'C9dh3 C0ah3 

0345 

CD 0109 


0348 

180A 


034A 

6D6F76206320 


0350 

61000A90 


0354 

01 035C 

prlnt "call co"C0dh3 C0ah3 

0357 

CD 0109 


035A 

180A 



Abb. 2.2-1 
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035C 

63616C6C2063 


0362 

6F000A00 


0366 

C3 0138 

Jmp Loop 

0369 


halt: 

0369 

01 0371 

prlnt 'Lxl 

036C 

CD 0109 


036F 

130E 


0371 

6C7869206420 


0377 

686D6573730D 


037D 

0A00 


037F 

01 0387 

prlnt "call 

0382 

CD 0109 


0385 

180D 


0387 

63616C6C2070 


038D 

72696E740D0A 


0393 

00 


0394 

01 039C 

prlnt "hlt" 

0397 

CD 0109 


039A 

1806 


039C 

686C740D0A00 


03A2 

C3 0138 

jmp loop 

03A5 


■Final: 

03A5 

01 03AD 

prlnt ".end 

03A8 

CO 0109 


03AB 

1807 


03AD 

2E656E649D0A 


03B3 

00 


03B4 

01 03BC 

prlnt "Ende 

03B7 

CD 0109 


03BA 

1818 


03BC 

456E64652064 


03C2 

657220436F6D 


03C8 

70696C696572 


83CE 

756E678D0A00 


03 D4 

CD F01E 

call 0f01eh 

0307 


prac : 

03D7 

F5 

push psu 

03D8 

IF 

rar 

03D9 

IF 

rar 

03OA 

IF 

rar 

03DB 

IF 

rar 

03DC 

CD 03E0 

call outh 

03 DF 

Fl 

pop psu 

03E0 


outh: 

03E0 

E60F 

anl 0fh 

03E2 

C630 

adl "0" 

03E4 

FE3A 

cpl "9"+l 

03E6 

DA 03EB 

Je outch 

03E9 

C627 

adl "a"-"?"- 

03EB 


outch: 

03EB 

4F 

mov c,a 

03EC 

C3 0106 

Jmp CO 


Abb. 2.2-1 


;Monitor aufru-fen 
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TDL Z80 
.MAIN. 


03EF 

03EF 

03F0 

03F3 

03F4 

03F7 

03FA 

03FD 

03FF 

0403 


0404 

0404 

0407 

040A 

040C 

0412 

0418 

041E 

0424 

0428 

0011 

1000 

1000 

1000 

1002 

1004 

1006 

1008 

100A 

100C 

100E 

1010 

1012 


1014 
1016 
1018 
101 A 
101C 

101E 

1100 

1100 

1101 

1102 
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outde: 

7A mov a,d 

CD 03D7 caLL prac Abb. 2.2-1 

7B mov a,e 

CD 03D7 call prac 

01 03FF prlnt •'H"C0dh3 C0ah3 

CD 0109 

1804 

480D0A00 

C9 ret 


error: 

01 040C prlnt " ERROR UNOEFINED COMMAND "C0dh3 C0ah3 

CD 0109 

181C 

204552524F52 

20554E444546 

494E45442043 

4F4D4D414E44 

200D0A00 

C3 0138 jmp loop 

data=l1h 


.Loc 1000h 


»BelspleL Programm 


4700 

prg: 

-byte 

•' 6",0 

5A01 

.byte 

••Z",l 

4C00 

.byte 

••L",0 

4700 

.byte 

•' Cri ",0 

4100 

-byte 

"A",0 

5A02 

.byte 

"Z",2 

5300 

-byte 

'•S",0 

4F00 

.byte 

"O",0 

4300 

-byte 

"C",0 

4A00 

. byte 

"J'‘,0 


4701 

.byte 

"G",l 

4F01 

.byte 

"0", 1 

4C01 

.byte 

"L",l 

4914 

.byte 

"I",14h 

4A1C 

.byte 

•'J",lch 

4500 

. byte 

••E",0 


. loc : 

1100h 

00 

. byte 

0 

2B 

. byte 


3D 

-byte 

11— n 


»Weiteres Programm 


.end 
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.MAIN. - 

+++++ SYMBOL TABLE +++++ 


ADD 

01EA 

CI 

0103 

CO 

0106 


CRLF 

02F2 

DATA 

0011 

ERROR 

0404 

FINAL 

03A5 


GETHEX 

0309 

HALT 

0369 

JMPNZ 

0292 

JUMP 

027C 


LOAD 

019E 

LOOP 

0138 

LPRINT 

0109 

NEGATE 

0245 


OUTCH 

03EB 

OUTDE 

03EF 

OUTH 

03E0 

OUTHEX 

02CB 


PRAC 

03 D7 

PRG 

1000 

START 

0100 

STARTE 

0115 


STORE 

01C4 

ZEICH 

0332 

.BLNK. 

0000:03 X 

.DATA. 

0000« 

X 

.PROG. 

0000 


Makro wird mit einem Namen versehen. 
Unter diesem Namen ist er im Assembler¬ 
programm von nun an aufrufbar; nur 
wird im Gegensatz zum Unterprogramm¬ 
aufruf kein CALL ausgeführt, sondern der 
Inhalt wird in das Assemblerprogramm 
eingefügt. Dies ist im Prinzip genauso, als 
ob anstelle des Aufrufs die Befehle an die 
betreffende Stelle getippt würden. Im Ge¬ 
gensatz zum Unterprogrammauf ist es nun 
beim Makro möglich, in Abhängigkeit von 
Parametern, die dem Makroauf beigefügt 
werden, den eingefügten Code zu variieren. 
Darin liegt die Stärke bei der Verwendung 
von Makros. Hier wird nun ein Makro de¬ 
finiert, der die Aufgabe hat, wie der 
PRINT-Befehl in Basic zu wirken, mit der 
Einschränkung, daß nur Texte ausgegeben 
werden können. 

Mit „.define” startet die Definition des 
Makros. Es folgt der Name mit in eckigen 
Klammern stehenden Parametern. Der Na¬ 
me lautet PRINT und die Parameter sind 
hier a und %b. %b ist eigentlich kein echter 
Parameter und dient nur der automatischen 
Erzeugung einer Marke. Wird innerhalb 
eines Makros eine Marke angegeben, so 
würde der Assembler beim zweiten Aufruf 
dieses Makros einen Fehler ausgeben, da 
die Marke dann zweimal deklariert ist. Es 
gibt auch Assembler, bei denen lokale Mar¬ 
ken bezüglich des Makros angegeben wer¬ 
den können, dann ist die Marke außerhalb 
des vom Makros erzeugten Codes unwirk¬ 


sam und es tritt kein Fehler auf. Der TDL- 
Assembler besitzt zwar auch die Möglich¬ 
keit, lokale Marken zu definieren, doch 
diese sind nur lokal bezüglich zweier globa¬ 
ler Marken; bei dem Nacheinander zweier 
Makros ohne eine dazwischen liegende glo¬ 
bale Marke tritt wieder ein Fehler auf. Da¬ 
her wird hier die Möglichkeit genutzt, daß 
dieser Assembler automatisch Marken er¬ 
zeugen kann. Durch das Zeichen wird 
dem Assembler mitgeteilt, daß der nach¬ 
folgende Name durch eine automatisch er¬ 
zeugte Marke ersetzt werden soll. Mit„=[” 
wird der Start des Makrokörpers angezeigt. 
Dort ist die Definition des eigentlichen Ma¬ 
kros. Sie beginnt mit „Ixi das Register¬ 

paar BC wird mit der Adresse des auszuge¬ 
benden Textes geladen. Sie errechnet sich 
aus der Summe von aktuellem Programm¬ 
zählerstand (mit „ . “ anzugeben) und der 
Zahl 8, die Anzahl der dazwischen liegen¬ 
den Bytes. Es erfolgt dann der Aufruf des 
Unterprogramms Iprint, das einen Text aus¬ 
gibt. Und dann folgt ein Sprung auf die 
Marke „%b“;sie wird dabei bei jedem 
neuen Makro-Aufruf variiert. Mit „.asciz a“ 
wird der als Parameter a angegebene Text 
als Code abgelegt. Das Ende des Textes 
wird durch ein Byte mit dem Wert 0 ange¬ 
zeigt. Danach steht „%b:” , dies ist die 
Stelle der automatisch zu erzeugenden 
Marke. Die Definition des Makros schließt 
mit der eckigen Klammer. Es folgt das Un¬ 
terprogramm Iprint. Es hat die Aufgabe, 
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2.2 Der Compiler 


einen Text, dessen Anfangsadresse in DE 
steht, auf die Konsole auszugeben. Das En¬ 
de des Textes wird durch ein Nullbyte er¬ 
kannt. 

Das Hauptprogramm beginnt mit der 
Marke „starte”. Es wird auch hier wie beim 
Interpreter ein Programmzähler geladen. 
Dieser hat jedoch hier eine andere Aufgabe. 
Er muß dafür sorgen, daß Marken und 
Sprünge, die bei unserer Programmierspra¬ 
che nicht symbolisch, sondern mit einem 
sedezimalen Wert angegeben sind, richtig in 
ein Maschinenprogramm umgesetzt werden 
können. Da es bei uns nicht nötig ist, Mar¬ 
ken zu definieren, werden sie hier der Ein¬ 
fachheit halber nach jedem Übersetzungs¬ 
vorgang eines Befehls automatisch erzeugt. 

Doch zunächst erfolgt der Aufruf des 
Makros PRINT: Es wird die erste Pro¬ 
grammzeile ausgegeben. Soll das Programm 
wirklich übersetzt werden, so wäre es nötig, 
diesen Text nicht einfach auf eine Konsole 
zu geben, sondern auf eine Diskette oder 
sonstigen Speicher. Es wird hier nicht ein 
Maschinenprogramm im Objektformat, son¬ 
dern als Assembler-Quellencode erzeugt. 
Dieses erzeugte Sourceprogramm muß 
nach der Compilierung von einem Assem¬ 
bler in die Maschinensprache übersetzt wer¬ 
den. Diese Vorgehensweise hat den Vorteil, 
daß der Compiler nicht auch noch zusätz¬ 
lich einen Assembler beinhalten muß, der 
allerdings relativ einfach aufgebaut sein 
könnte. 

Mit dem ersten Befehl, der erzeugt 
wird „ .insert runtime.asm”, wird das Ein¬ 
fügen eines Standardprogrammpakets ver¬ 
anlaßt, das bei jedem erzeugten Programm 
benötigt wird. Dieses Paket kann zum 
Beispiel die Umwandlung von ASCII in 
Sedezimal etc. beinhalten. Aus diesem 
Paket werden später Unterprogramme ver¬ 
wendet. 

Nun folgt die Hauptschleife des Com¬ 
pilers. Sie beginnt mit der Ausgabe einer 
Marke „LxxxxH:”. ,,xxxx” wird je nach 
Stand des Zählers HL sedezimal ausgege¬ 
ben. Diese Vorgehensweise ist hier nötig. 


um unnötigen Aufwand im Compiler zu 
umgehen. Soll nur immer dann eine Marke 
erzeugt werden, wenn eine benötigt wird, 
so muß in einem ersten Durchlauf zunächst 
nach Sprüngen gesucht werden. Alle darin 
vorkommenden Adressen werden gesam¬ 
melt, und in einem zweiten Durchlauf wird 
nur dann eine Marke erzeugt, wenn auf die 
entsprechende Adresse auch tatsächlich ge¬ 
sprungen wird. 

Im nachfolgenden Programmteil werden 
nun die einzelnen Befehle abgefragt. Dabei 
steht im Register A der Befehl und im Re¬ 
gister E der Operand, genau wie beim In¬ 
terpreter. Auch hier erfolgt ein Sprung zu 
der entsprechenden Routine, die den Be¬ 
fehl behandelt. Doch wird hier nicht das 
Programm ausgeführt, sondern nur der 
Assembler-Quellencode erzeugt. Bei LOAD 
z.B. wird die Sequenz „Ida xxxxh ; sta 
akku” erzeugt. Dabei wird für „xxxx” der 
Parameter eingesetzt plus der Anfangs¬ 
adresse des Datenbereichs. Dies geschieht 
in der Routine „outde”. 

Auf diese Art und Weise wird für jeden 
Befehl eine Sequenz von Maschinenbefeh¬ 
len erzeugt. Zu beachten ist, daß auch 
beim bedingten Sprung nicht etwa der 
Akkumulator abgefragt wird, sondern stur 
die Befehlsfolge erzeugt wird, unabhängig 
vom Zustand eines Registers der hypothe¬ 
tischen Sprache. 

Die Abfrage des Akkumulators erfolgt 
erst beim Starten des erzeugten Maschinen¬ 
programms. Auch das Verhalten bei dem 
HALT-Befehl ist anders. Es wird keine 
Meldung an die Konsole ausgegeben, son¬ 
dern hier tatsächlich ein HALT-Befehl des 
8080 in das erzeugte Programm geschrie¬ 
ben. Dies führt später zum Stopp des Pro¬ 
zessors, wenn er an diese Stelle kommt, 
doch der Übersetzungsvorgang wird nicht 
gestoppt. Er kann nur durch die Angabe 
eines sogenannten Pseudobefehls gestoppt 
werden. Dies ist ein Befehl, der in der Maschi- 
nen-Sprache eigentlich keine Bedeutung hat. 
Er dient nur dazu, dem Compiler das Ende 
des Programms mitzuteilen. Beim Interpre- 
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2 Realisierungsmöglichkeiten von Basic 


BASCOM 5.1 

- Copyright 

1979 (C) 

by MICROSOFT - 14769 Bytes Free 

0014 

0007 

10 REM 

BEISPIEL 

FUER DEN 

BASIC 


** 

0014'L00010: 




0014 

0007 

20 REM 

COMPILER 


Abb. 2.2-2 Ausgabebeispiel des Compilers 

** 

0014^L00920: 


0014 

0007 

30 FOR 

1==1 TO 10 



** 

0014^L00030: 

CALL 

$LFMA 



** 

0017' 

DW 

<cünst> 



** 

0019' 

JMP 

100000 



** 

001C'100001: 



.Insert runtlme.asm 

001C 

0007 

40 PRINT 



** 

001C'L00040: 

CALL 

$PR0A 

L0000H: 


** 

001F' 

LXI 

H,I! 

call gethex 


** 

0022' 

CALL 

$PV0A 

sta 1100H 


** 

0025' 

CALL 

$FMUA 

L0002H: 


** 

0028' 

DW 

I ! 

Ida nOlH 


** 

002A' 

DW 

I ! 

mov c a 


** 

002C' 

LXI 

H,$AC7. 

call CO 


** 

002F' 

CALL 

$PV2A 

L0004H: 

0032 

000B 

50 NEXT 

I 


Ida 1100H 


** 

0032'L00050: 

CALL 

$FADA 

sta akku 


** 

0035' 

DW 

I ! 

L0006H: 


** 

0037' 

DW 

<coust> 

call gethex 


** 

0039'100000: 



sta 1100H 


** 

0039' 

CALL 

$FASO 

L0008H: 


** 

003C' 

DW 

I ! 

Ida 1100H 


** 

003E' 

CALL 

$LEJA 

mov b a 


** 

0041 ' 

DW 

I! 

Ida akku 


** 

0043' 

DW 

<const> 

add b 


** 

0045' 

DW 

100001 

sta akku 

0047 

000B 

60 END 



L000aH; 


** 

0047'L00060: 

CALL 

$END 

Ida 1102H 

004A 

000B 




mov c a 


** 

004A' 

CALL 

$END 

call CD 


00000 FataL Error(s) 
14532 Bytes Free 

L80 B:BASICC1 /G 


L000CH: 
Ida akku 
sta 1100H 
L000eH: 
Ida 1100H 
call prac 
L0010H: 


110118 
CBeg Ln 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 


234F 35D 

executlonU 
1 
4 
9 

16 

25 

36 

49 

64 

81 

100 


Abb. 2.2-3 Basic-Compiler-Ausdruck 


call crlf 
L0012H: 
jmp L0000H 
L0014H: 
call gethex 
sta 1101H 
L0016H: 

Ida 1101H 
call prac 
L0018H: 

Ida 1101H 
sta akku 
L001aH: 

Ida akku 
ora a 
jnz L0014H 
L001cH: 
jmp L001cH 
L001eH: 

. end 

Ende der Compilierung 
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2.3 Teilübersetzung als Kompromiß 


ter war dieser Befehl nicht nötig. Abb. 2.2-2 
zeigt noch ein Ausgabebeispiel des Compi¬ 
lers. 

Abb. 2.2-3 zeigt das Beispiel eines 
Basic-Compilers. Der Aufruf L80 ... nach 
der Übersetzung des Programms bewirkt 
den Start eines Linkers, der aus einer Bi¬ 
bliothek Standard-Unterprogramme, wie 
Gleitkommaarithmetik dazu bindet. Da¬ 
nach erst kann das Programm gestartet 
werden. Der Aufruf dieser Unterprogram¬ 
me ist im Übersetzungsprotokoll durch 
Namen die mit beginnen, gekennzeich¬ 
net. 


2.3 Teilübersetzung als Kompromiß 

Bei den meisten handelsüblichen Basic-In- 
terpretern wird ein Kompromiß zwischen 
der Version aus Kapitel 2.1 und einem 
Compiler gezogen. Manche dieser Interpre¬ 
ter nennen sich sogar Compiler; das aller¬ 
dings zu Unrecht. 

Bei der Analyse und Erkennung auf ein 
Wort wird relativ viel Zeit verbraucht. Da¬ 
her wird nun die Wortanalyse gleich beim 
Ablegen des Programms vorgenommen und 
anstatt des Basic-Wortes PRINT z.B. der 
Hexadezimal-Code 81 im Speicher abge¬ 
legt. Dadurch wird nicht nur Platz im Spei¬ 
cher gespart, sondern es ist bei der nachfol¬ 
genden Interpretation des Basic-Programms 
viel leichter möglich, diese Wörter zu erken¬ 
nen. In diesem Beispiel muß nur das höchst¬ 
wertige Bit 7 abgefragt werden, und schon 
ist dem Interpreter bekannt, ob es sich um 
ein Basic-Wort handelt oder nicht. Mit den 
restlichen 7 Bits kann über eine Adreßta- 
belle mit einem indirekten Sprung das ent¬ 
sprechende Unterprogramm ausgeführt wer¬ 
den. 2.3-1 zeigt eine Übersetzungs¬ 
tabelle, wie sie in einem Basic-Interpreter 
vorhanden sein könnte. 

Die Basic-Wörter werden immer gefolgt 
von dem Code, durch den sie bei der Über¬ 



setzung ersetzt werden. Der Scanner, so 
wird dieser Vorübersetzer genannt, sucht 
nun in dieser Tabelle nach dem Wort und 
falls er es findet, wird der nachstehende 
Code im Speicher abgelegt. Der Code muß 
natürlich so gewählt werden, daß später 
Verwechslungen ausgeschlossen sind. Bei 
ASCII (7 Bits, 0...6) können für diesen 
Code einfach Zeichen mit gesetztem Bit 7 
verwendet werden. Bei manchen Basic-In- 
terpretern, so zum Beispiel bei PET und 
CBM, müssen in Strings auch Graphik-Zei¬ 
chen Vorkommen können; dies sind dort 
ebenfalls Zeichen mit gesetztem Bit 7. Ei¬ 
ne Verwechslung ist dennoch ausgeschlos¬ 
sen, da Strings immer mit Anführungszei¬ 
chen anfangen müssen und auch mit die¬ 
sem Zeichen (”) enden. Dadurch schaltet 
der Interpreter um und betrachtet alle 
Zeichen zwischen zwei Anführungszeichen 
als Text, ohne auf die Spezialcodes zu 
sehen. 

Abb. 2.3-2 veranschaulicht den Kom¬ 
pressionsvorgang. Das reservierte Wort 
PRINT wird im Speicher durch den Code 
81H dargestellt. Der Rest der Zeile läßt 
sich nicht vereinfachen. Unnötige Leerzei¬ 
chen können hier nicht entfernt werden, 
da später beim LIST-Befehl diese Zeichen 
wieder erscheinen müssen. 
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2 Realisierungsmöglichkeiten von Basic 


Quelle ; 

Speicher: 

P 

R 

1 

N 

T 


•• 

T 

E 

X 

T 

" ; CR LF 








81 


•• 

T 

E 

X 

T 

•• 

! 

CR 

LF 



Abb. 2.3-2 Kompressionsvoigang 


Quelle ; 

Speicher: 

1 

0 

0 


L 

E 

T 


A 

= 

2 CR LF 









00 

64 


85 


A 

= 

2 

CR 

LF 



Abb. 2.3-3 Kompressionsvorgang mit 
Zeilennummer 


Ein ähnlicher Kompressionsvorgang 
läßt sich mit der Zeilennummer durchfüh¬ 
ren. 2,3-3 zeigt das Beispiel. Die Zei¬ 
lennummer wird binär codiert und so di¬ 
rekt im Speicher abgelegt. Sie belegt da¬ 
durch 2 Bytes (daher auch die Beschrän¬ 
kung der meisten Basic-Interpreter auf ca. 
32000 bzw. 64000 als höchste Zeilennum¬ 
mer). Die Ausführungsgeschwindigkeit 
wird dadurch stark erhöht, da der Dezimal- 
Binär-Umwandlungsvorgang nicht jedesmal 


beim Ausführen einer Zeile, sondern nur 
einmal durchgeführt werden muß. 

Ebenfalls wäre die Ausführung eines 
GOTO-Befehls sonst eine recht zeitrauben¬ 
de Angelegenheit. Manche Basic-Interpre¬ 
ter gehen noch etwas weiter und fügen hin¬ 
ter die binäre Zeilennummer noch die 
Adresse der nächsten Zeile, die sonst nur 
durch das Zeichen CR (Carriage Return) 
auffindbar wäre. Dadurch wird der Such¬ 
vorgang für das Zeilenende eingespart. 
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3 RDK-Basic 


3.1 Ein „Tiny Basic" und dessen 
Einsatz 


In diesem Kapitel soll der praktische Auf¬ 
bau eines kompletten Basic-Interpreters 
gezeigt werden. Er entspricht einem „Tiny 
Basic”, also einem Basic mit eingeschränk¬ 
tem Befehlsvorrat. Der Begriff „tiny” tritt 
gerade in der amerikanischen Fachliteratur 
sehr häufig auf. So gibt es mittlerweile ne¬ 
ben einem Tiny Basic auch ein ,,Tiny 
Pascal”. Der Begriff ,,tiny” (winzig) bedeu¬ 
tet, daß es sich um einen „Subset”, also 
eine Untermenge der eigentlichen Program¬ 
miersprache handelt. Im Falle von Basic 
heißt dies meist, daß eine Gleitkomma- 
Arithmetik fehlt und die Fähigkeit, Strings 
(Zeichenketten) zu verarbeiten, zumindest 
nicht so wie es im Original-Basic definiert 
ist. 

Auch hier soll nur der Interpreter eines 
Tiny Basic besprochen werden, da dieser 
den großen Vorteil bietet, sehr wenig Spei¬ 
cherplatz zu belegen und dadurch für eine 
Programmbesprechung einigermaßen über¬ 
sichtlich bleibt. Tiny-Basic-Interpreter be¬ 
legen im allgemeinen einen Speicherraum 
von 1,5...4 KByte, ein Standard-Basic etwa 
5...8 KByte und ein erweitertes Basic mit 
komfortabler Stringbehandlung und spe¬ 
ziellen Befehlen 12 KByte, Disk-Basic 
schließlich 16...32 KByte und Compiler 
sogar etwa 16...48 KByte (bei 8080 oder 
Z80). 

Der Vorteil eines Tiny Basic liegt neben 
dem geringen Speicherbedarf auch darin, 
daß er sehr schnell arbeitet, da er eine 
Ganzzahl-Arithmetik verwendet, die die 
CPU meist von Haus aus recht gut be¬ 
herrscht. Eine Gleitkomma-Arithmetik 


wie sie in vielen Interpretern ausschließlich 
verwendet wird, verlangsamt die Ausfüh¬ 
rung eines Basic-Programms. In Fällen also, 
wo keine Gleitkomma-Arithmetik nötig 
ist, ist das Arbeiten mit Tiny Basic vorteil¬ 
hafter als mit Standard-Basic. Ein Einsatz 
ist also in den Bereichen Prozeßdatenverar¬ 
beitung, Grafik und Spiele zu suchen. 

Das hier beschriebene Basic wurde ur¬ 
sprünglich in einer amerikanischen Zeit¬ 
schrift [11] veröffentlicht; die Länge be¬ 
trug 1,75 KByte. Es wurde stark vergrößert 
und neue Funktionen wurden aufgenom¬ 
men: Die jetzige Länge beträgt 3 KByte, 
und das Programm liegt in dieser Form dem 
Leser vor. 


3.2 Hardware bei Z80 und Z8000 
zum Betrieb des Tiny Basic 

Das Programm war ursprünglich für den 
8080 ausgelegt. Der Code ist nach wie vor 
für den 8080 gedacht, doch kann natürlich 
auch ein Z80 diesen Code ausführen. Die 
entsprechenden Stellen, die inkompatibel 
sein könnten (P/V-Flag), wurden bei der 
Programmierung berücksichtigt. 

Das gleiche Programm liegt auch in ei¬ 
ner Version für den Z8000 vor, wobei ent¬ 
sprechende Optimierungen im Hinblick 
auf die Leistungsfähigkeit des Z8000-Be- 
fehlssatzes durchgeführt wurden. Das 
Listing für den Z8000 ist genauso geglie¬ 
dert, so daß in der Besprechung hauptsäch¬ 
lich auf das 8080/Z80-Listing zurückgegrif¬ 
fen und nur in besonderen Fällen auf den 
Z8000 eingegangen wird. 
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3 RDK-Basic 


Das Basic läßt sich auf fast jedem 
8080/Z80-Rechner installieren, zum Be¬ 
trieb sind nur drei Sprungvektoren zu än¬ 
dern, die auf Konsolroutinen zeigen. Beim 
Z8000 ist dies im Prinzip ähnlich, nur 
wird dort im allgemeinen mit einem Sy- 
stem-CALL-Befehl gearbeitet, um mit Kon¬ 
solen und anderen Peripherieeinheiten zu 
arbeiten. Um trotzdem Änderungen leicht 
durchführen zu können, wurde innerhalb 
des Basic mit CALL-Befehlen gearbeitet, 
die eine Stelle am Anfang des Basic aufru- 
fen; diese Stelle enthält dann die „System- 
Calls”. Ferner wurde noch ein Monitor¬ 
programm beigefügt, das den Aufbau eines 
Z8000-SySterns erleichtern soll. Die dazu¬ 
gehörige Hardware ist zusammen mit dem 


Monitorprogramm in [6] beschrieben. Das 
Listing ist im Anhang abgedruckt. 

Weitere Hardware findet sich in [5]. 

3.3 Realisierung des Basic-Inter- 
preters 

In diesem Abschnitt wird anhand des 
Listings vonAbb. 3,3-1 der Aufbau und 
die Wirkungsweise eines Basic-Interpreters 
erklärt. Dabei unterteilt sich der Interpre¬ 
ter in unterschiedliche Module, die entspre¬ 
chend ihres Schwierigkeitsgrades in ver¬ 
schiedenen Abschnitten besprochen wer- 
den. Abb. 3.3-2 zeigt den Ausdruck in se- 
dezimaler Form. 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
.MAIN. - 


PAGE 1 


.PABS 

,PHEX 

;************************************ 
; RDK BASIC INTERPRETER V3,2 800316 




;************************************ 

1000 


ANBAS=\ " ANFANGS ADRESSE BASIC” 

0100 


.LOC 100H ;bei CPM 

0100 

C3 0FE3 

JMP BEGINN 

0FE3 


.LOC ANBAS-29 

0FE3 


BEGINN: 

0FE3 

31 210F 

LXI SP,STACK 

0FE6 

3EC9 

MVI A,0C9H 

0FE8 

32 1000 

STA HAUPTP 

0FEB 

CD 1000 

CALL HAUPTP 

0FEE 


ANF: 

0FEE 

3B 

DCX SP 

0FEF 

3B 

OCX SP 

0FF0 

Dl 

POP D 

0FF1 

21 0012 

LXI H,HAUPTP-ANF 

0FF4 

19 

DAD D 

0FF5 

11 1000 

LXI D,HAUPTP 

0FF8 

01 0A86 

LXI B,ENDE-BEGINN 

0FFB 

ED80 

LDIR 

0FFD 

C3 16C0 

JMP START 



;HAUPTPROGRAMM 

1000 


HAUPTP: Abb. 3.3-1 Listing des 

1000 

C3 16C0 

JMP START 

1003 

C3 10B8 

JMP RSTART 
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3.3 Realisierung des Basic-Interpreters 


1006 

C3 

F003 

1009 

C3 

F009 

100C 

100F 

C3 

F012 

100F 

7C 


1010 

BA 


1011 

C0 


1012 

7D 


1013 

BB 


1014 

C9 


1015 

1015 

lA 


1016 

FE2 

10 

1018 

C0 


1019 

13 


101A 

C3 

1015 

101 D 

101D 

Fl 


101E 

CD 

150E 

1021 

C3 

1527 

1024 

1024 

CD 

1015 

1027 

D640 

1029 

D8 


102A 

C2 

1048 

102D 

13 



CI:JMP 0F003H 
ECHO:JhP 0F009H 
CSTS:JMP 0F012H 
COMP: 

MOV A,H 
CMP D 
RNZ 

MOV A,L 
CMP E 
RET 

IGNB: 

LDAX D 
CPI •• 

RNZ 
INX D 
JMP IGNB 

FINl: 

POP PSW 
CALL FIN 
JMP QWHAT 

TSTV: 

CALL IGNB 
SUI 940H 
RC 

JNZ TVl 
INX D 
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102E 

CD 1462 

CALL PARN 

1031 

29 

DAD H 

1032 

DA 1696 

JC QHOW 

1035 

D5 

PUSH D 

1036 

EB 

XCHG 

1037 

CD 14A9 

CALL SIZE 

103A 

CD 100F 

CALL COMP 

103D 

DA 1557 

JC ASORRY 

1040 

2A 2148 

LHLD TXTEND 

1043 

CD 14CC 

CALL SUBDE 

1046 

Dl 

POP D 

1047 

C9 

RET 

1048 


TVl : 

1048 

FEIB 

CPI 01BH 

104A 

3F 

CMC 

104B 

D8 

RC 

104C 

13 

INX D 

104D 

21 2111 

LXI H,VARBGN 

1050 

07 

RLC 

1051 

85 

ADD L 

1052 

6F 

MOV L,A 

1053 

3E00 

MVI A,0 

1055 

8C 

ADC H 

1056 

67 

MOV H,A 

1057 

C9 

RET 
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3 RDK-Basic 


1058 


TSTC: 

1058 

E3 

XTHL 

1059 

CD 1015 

CALL IGNB 

105C 

BE 

CMP M 

105D 


TCl : 

105D 

23 

INX H 

105E 

CA 1068 

JZ TC2 

1061 

C5 

PUSH B 

1062 

4E 

MOV C,M 

1063 

0600 

MVI B,0 

1065 

09 

DAD B 

1066 

CI 

POP B 

1067 

IB 

DCX D 

1068 


TC2: 

1068 

13 

INX D 

1069 

23 

INX H 

106A 

E3 

XTHL 

106B 

C9 

RET 

106C 


TSTNUM: 

106C 

21 0000 

LXI H,0 

106F 

44 

MOV B,H 

1070 

CD 1015 

CALL IGNB 

1073 


TNl : 

1073 

FE30 

CPI "0" 

1075 

D8 

RC 

1076 

FE3A 

CPI 03AH 

1078 

D0 

RNC 

1079 

3EF0 

MVI A,0F0H 

1078 

A4 

ANA H 

107C 

C2 1096 

JNZ QHOW 

107F 

04 

INR B 

1080 

C5 

PUSH B 

1081 

44 

MOV B,H 

1082 

4D 

MOV C,L 
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1083 

29 

DAD H 

1084 

29 

DAD H 

1085 

09 

DAD B 

1086 

29 

DAD H 

1087 

lA 

LDAX D 

1088 

13 

INX D 

1089 

E60F 

ANI 0FH 

108B 

85 

ADD L 

108C 

6F 

MOV L,A 

108D 

3E00 

MVI A,0 

108F 

8C 

ADC H 

1090 

67 

MOV H,A 

1091 

CI 

POP B 

1092 

lA 

LDAX D 

1093 

F2 1073 

JP TNl 

1096 


QHOW: 

1096 

D5 

PUSH D 

1097 


AHOW: 

1097 

11 109D 

LXI D,HOW 

109A 

C3 152B 

JMP ERROR 


Abb. 3.3-1 
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109D 


HOW: 


109D 

484F573F 

.ASCII 

/HOW? 

10A1 

0D0A 

/ 


10A3 


OK: 


10A3 

5245414459 

.ASCII 

/READY 

10A8 

0D0A 

/ 


10AA 


WHAT; 


10AA 

574841543F 

.ASCII 

/WHAT? 

10AF 

0D0A 

/ 


10B1 


SORRY: 


10B1 

534F525259 

.ASCII 

/SORRY 

10B6 

0D0A 

/ 



;************************************ 
; HAUPTPROGRAMM 
; LEGT PROGRAMM IM SPEICHER AB 
; DEFINIERT REGISTER 
;LIEST EINE BENUTZERZEILE UM 
;DIESE ZU VERARBEITEN 


;************************************ 


5 


10B8 


RSTART: 

10B8 

31 210F 

LXI SP,STACK 

10BB 


STl : 

10BB 

CD 16F9 

CALL CRLF 

10BE 

11 10A3 

LXI D,OK 

10C1 

97 

SUB A 

10C2 

CD 15CA 

CALL PRTSTG 

10C5 

21 10CC 

LXI H,ST2+1 

10C8 

22 2007 

SHLD CURRNT 

10CB 


ST2: 

10 CB 

21 0000 

LXI H,0 

10CE 

22 200F 

SHLD LOPVAR 

10D1 

22 2009 

SHLD STKGOS 

10D4 


ST3: 

10D4 

3E3E 

MVI A,">" 

10D6 

CD 155D 

CALL GETLN 

10D9 

D5 

PUSH D 

10DA 

CD 18A9 

CALL DBUFF 

10 DD 

CD 106C 

CALL TSTNUM 

10E0 

CD 1015 

CALL IGNB 

10E3 

7C 

MOV A,H 
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10E4 

B5 

ORA L 

10E5 

CI 

POP B 

10E6 

CA 1876 

JZ DIRECT 

10E9 

IB 

DCX D 

10EA 

7C 

MOV A,H 

10EB 

12 

STAX D 

10EC 

IB 

DCX D 

10ED 

70 

MOV A,L 

10EE 

12 

STAX D 

10EF 

C5 

PUSH B 

10F0 

D5 

PUSH D 

10F1 

79 

MOV A,C 

10F2 

93 

SUB E 

10F3 

F5 

PUSH PSW 


Abb. 3.3-1 


PAGE 4 
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3 RDK-Basic 



10F4 

CD 15A0 

CALL FNDLN 

10F7 

05 

PUSH D 

10F8 

C2 110B 

JNZ ST4 

10FB 

D5 

PUSH D 

10FC 

CD 15BE 

CALL FNDNXT 

10FF 

CI 

POP B 

1100 

2A 201B 

LHLD TXTUNF 

1103 

CD 1661 

CALL MVUP 

1106 

60 

MOV H,B 

1107 

69 

MOV L,C 

1108 

22 201B 

SHLD TXTUNF 

110B 


ST4 : 

110B 

CI 

POP B 

110C 

2A 201B 

LHLD TXTUNF 

110F 

Fl 

POP PSW 

1110 

E5 

PUSH H 

1111 

FE03 

CPI 3 

1113 

CA 10B8 

JZ RSTART 

1116 

85 

ADD L 

1117 

6F 

MOV L,A 

1118 

3E00 

MVl A,0 

lllA 

8C 

ADC H 

lllB 

67 

MOV H,A 

nie 

CD 18B1 

CALL DTXTE 

lllF 

CD 100F 

CALL COMP 

1122 

D2 1556 

JNC OSORRY 

1125 

22 201B 

SHLD TXTUNF 

1128 

01 

POP D 

1129 

CD 166C 

CALL MVDOWN 

112C 

Dl 

POP D 

112D 

El 

POP H 

112E 

CO 1661 

CALL MVUP 

1131 

C3 10D4 

JMP ST3 


;*♦**■*»*■*■***■*■»■»*******•*■********«*«##* 
5 NEW STOP RUN GOTO UPR 
!****■»**■»****■»*■»«*■*♦•»•****•»#*■»•*■»****** 


1134 


NEW: 


1134 

CD 1521 

CALL ENDCHK 


1137 

21 214E 

LXI H,TXTBGN 


113A 

22 201B 

SHLD TXTUNF 


113D 


STOP: 


1130 

CO 1521 

CALL ENDCHK 


1140 

C3 10B8 

JMP RSTART 


1143 


RUN: 

Abb. 3.3-1 

1143 

CD 1521 

CALL ENDCHK 
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1146 

11 

214E 

LXI D,TXTBGN 

1149 



RUNNXL: 

1149 

21 

0000 

LXI H,0 

114C 

CD 

15A8 

CALL FNDLP 

114F 

DA 

10B8 

JC RSTART 

1152 



RUNTSL: 
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1152 

EB 

XCHG 

1153 

22 2007 

SHLO CURRNT Abb. 3.3-1 

1156 

EB 

XCHG 

1157 

13 

INX D 

1158 

13 

INX D 

1159 


RUNSML: 

1159 

CD 1A5C 

CALL CONT 

115C 

21 1772 

LXI H,TAB2-1 

115F 

C3 1879 

JMP EXEC 

1162 


GOTO 2 

1162 

CD 1363 

CALL EXPR 

1165 

D5 

PUSH D 

1166 

CD 1521 

CALL ENDCHK 

1169 

CD 15A0 

CALL FNDLN 

116C 

C2 1097 

JNZ AHOW 

116F 

Fl 

POP PSW 

1170 

C3 1152 

JMP RUNTSL 



1 

;************************************ 



; LIST PRINT UPR 



;************************************ 

1173 


5 

LIST; 

1173 

CD 106C 

CALL TSTNUM 

1176 

CD 1521 

CALL ENDCHK 

1179 

CD 15A0 

CALL FNDLN 

117C 


LSI : 

117C 

DA 10B8 

JC RSTART 

117F 

CD 16AC 

CALL PRTLN 

1182 

CD 1A5C 

CALL CONT 

1185 

CD 15A8 

CALL FNDLP 

1188 

C3 117C 

JMP LSI 

118B 


PRINT: 

118B 

0E06 

MVI C,6 

118D 

CD 1058 

CALL TSTC 

1190 

3B 

.BYTE 03BH 

1191 

06 

.BYTE PR2-.-1 

1192 

CD 16F9 

CALL CRLF 

1195 

C3 1159 

JMP RUNSML 

1198 


PR2: 

1198 

CD 1058 

CALL TSTC 

119B 

0D 

.BYTE 0DH 

119C 

06 

.BYTE PR0-.-1 

119D 

CD 16F9 

CALL CRLF 

11A0 

C3 1149 

JMP RUNNXL 

11 A3 


PR0 : 

11 A3 

CD 1058 

CALL TSTC 

11A6 

23 

.BYTE 023H 

11A7 

07 

.BYTE PRl-.-l 

11A8 

CD 1363 

CALL EXPR 

HAB 

AD 

MOV C,L 

llAC 

C3 11B5 

JMP PR3 

llAF 


PRl : 

llAF 

CD 15D8 

CALL GiTSTG 

11B2 

C3 11C6 

JMP PR8 
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11B5 



PR3: 

11B5 

CD 

1058 

CALL TSTC 

11B8 

2C 


.BYTE 02CH 

11B9 

06 


.BYTE PR6-.- 

IIBA 

CD 

150E 

CALL EIN 

IIBD 

C3 

11A3 

JMP PR0 

11C0 



PR6: 

11C0 

CD 

16F9 

CALL CRLF 

11C3 

CD 

101D 

CALL FINI 

11C6 



PR8: 

11C6 

CD 

1363 

CALL EXPR 

11C9 

C5 


PUSH 8 

11 CA 

CD 

1608 

CALL PRTNUM 

11 CD 

CI 


POP B 

11 CE 

C3 

11B5 

JMP PR3 


*******-5(-**************************** 

GOSUB RETURN UPR 

************************************ 


llDl 


GOSUB: 

11 Dl 

CD 1697 

CALL PUSHA 

11D4 

CD 1363 

CALL EXPR 

11D7 

D5 

PUSH D 

11D8 

CD 15A0 

CALL FNDLN 

11 DB 

C2 1097 

JNZ AHOW 

11 DE 

2A 2007 

LHLD CURRNT 

llEl 

E5 

PUSH H 

11E2 

2A 2009 

LHLD STKGOS 

11E5 

E5 

PUSH H 

11E6 

21 0000 

LXI H,0 

11E9 

22 200F 

SHLD LOPVAR 

IIEC 

39 

DAD SP 

IIED 

22 2009 

SHLD STKGOS 

11F0 

C3 1152 

JMP RUNTSL 

11F3 


RETURN: 

11F3 

CD 1521 

CALL ENDCHK 

11F6 

2A 2009 

LHLD STKGOS 

11F9 

7C 

MOV A,H 

UFA 

B5 

ORA L 

IIFB 

CA 1527 

JZ OWHAT 

IIFE 

F9 

SPHL 

IIFF 

El 

POP H 

1200 

22 2009 

SHLD STKGOS 

1203 

El 

POP H 

1204 

22 2007 

SHLD CURRNT 

1207 

Dl 

POP D 

1208 

CD 167B 

CALL POPA 

120B 

CD 101D 

CALL FINI 



;************************************ 



; FOR NEXT UPR 



;************************************ 

120E 


5 

FOR: 

120E 

CD 1697 

CALL PUSHA 

1211 

CD 14F5 

CALL SETVAL 

1214 

2B 

DCX H 

1215 

22 200F 

SHLD LOPVAR 

1218 

21 1846 

LXI H,TAB5-1 

121B 

C3 1879 

JMP EXEC 

121E 


FRl : 

121E 

CD 1363 

CALL EXPR 
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1221 

22 2013 

SHLD LOPLMT 

1224 

21 184E 

LXI H,TAB6”1 

1227 

C3 1879 

JMP EXEC 

122A 


FR2: 

122A 

CD 1363 

CALL EXPR 

1220 

C3 1233 

JMP FR4 

1230 


FR3 : 

1230 

21 0001 

LXI H,1 

1233 


FR4 : 

1233 

22 2011 

SHLD LOPINC 

1236 


FR5 : 

1236 

2A 2007 

LHLD CURRNT 

1239 

22 2015 

SHLD LOPLN 

123C 

EB 

XCHG 

123D 

22 2017 

SHLD LOPPT 

1240 

01 000A 

LXI B,0AH 

1243 

2A 200F 

LHLD LOPVAR 

1246 

EB 

XCHG 

1247 

60 

MOV H,B 

1248 

68 

MOV L,B 

1249 

39 

DAD SP 

124A 

3E 

.BYTE 03EH 

124B 


FR7 : 

124B 

09 

DAD B 

124C 

7E 

MOV A,M 

124D 

23 

INX H 

124E 

B6 

ORA M 

124F 

CA 126C 

JZ FR8 

1252 

7E 

MOV A,M 

1253 

2B 

DCX H 

1254 

BA 

CMP D 

1255 

C2 124B 

JNZ FR7 

1258 

7E 

MOV A,M 

1259 

BB 

CMP E 

125A 

C2 124B 

JNZ FR7 

125D 

EB 

XCHG 

125E 

21 0000 

LXI H,0 

1261 

39 

DAD SP 

1262 

44 

MOV B,H 

1263 

40 

MOV C,L 

1264 

21 000A 

LXI H,0AH 

1267 

19 

DAD D 

1268 

CD 166C 

CALL MVDOWN 

126B 

F9 

SPHL 

126C 


FR8 : 

126C 

2A 2017 

LHLD LOPPT 

126F 

EB 

XCHG 

1270 

CD 10 ID 

CALL FINI 

1273 


NEXT: 

1273 

CD 1024 

CALL TSTV 

1276 

DA 1527 

JC (3WHAT 

1279 

22 200B 

SHLD VARNXT 

127C 


NX0 : 

127C 

D5 

PUSH D 

127D 

EB 

XCHG 

127E 

2A 200F 

LHLD LOPVAR 

1281 

7C 

MOV A,H 

1282 

B5 

ORA L 

1283 

CA 1528 

JZ AWHAT 

1286 

CD 190F 

CALL COMP 

1289 

CA 1296 

JZ NX3 
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128C 

128D 

1290 

1293 

1296 

1296 

1297 

1298 

1299 
129C 
129D 
129E 
129F 
12A0 
12A1 
12A4 
12A5 
12A8 
12A8 
12A9 
12AC 
12AD 
12AE 
12AF 
12B2 
12B3 
12B4 
12B7 
12B8 
12B8 
12RB 
12BC 
12RF 
12C2 
12 Cfü 
12C8 
12C9 
12CC 
12CC 
12 CD 
12 CF 
12 CE 
12D1 


12DA 
12D-4 
12D7 
120A 
12 DA 
12 DD 
12 DD 
12 OE 
1 2 DF 
12E2 
12Ef5 
12E8 
12EB 
12EB 
12EE 


CP/M DIBK ASSEMBLER VERSION 2.21 


RDK 

8 A S I 

C INTERPRETER 3K 780524 V3,3 

Dl 


POP D 

CD 

167B 

CALL POPA 

2A 

200B 

LHLD VARNXT 

C3 

127C 

JMP NX0 

MX3 : 

5E 


MOV E,M Abb. 3.3-1 

23 


INX H 

56 


MOV D,M 

2A 

2011 

LHLD LOPINC 

E5 


PUSH H 

7C 


MOV A,H 

AA 


XRA D 

7A 


MOV A,D 

19 


DAD D 

FA 

12A8 

JM NX4 

AC 


XRA H 

FA 

12CC 

JM NX5 

NX4: 

EB 


XCH6 

2A 

200F 

LHLD LOPVAR 

73 


MOV M,E 

23 


INX H 

72 


MOV M,D 

2A 

2013 

LHLD LOPLMT 

Fl 


POP PSW 

B7 


ORA A 

F2 

12B8 

JP NXl 

EB 


XCHG 

NXl : 

CD 

14EB 

CALL CKHLDE 

Dl 


POP D 

DA 

12 CE 

JC NX2 

2A 

2015 

LHLD LOPLN 

22 

2007 

SHLD CURRNT 

2A 

2017 

LHLD LOPPT 

EB 


XCHG 

CD 

101 D 

CALL FINI 

NX5: 

El 


POP H 

Dl 


POP D 

NX2 : 

CD 

167B 

CALL POPA 

CD 

101D 

CALL FINI 

;************************************ 

; REM IF INPUT LET UPR 

;************************************ 

REM: 

21 

0000 

LXI H,0 

C3 

12 DD 

JMP IFFR 

IFF: 

CD 

1363 

CALL EXPR 

IFFR: 

7C 


MOV A,H 

B5 


ORA L 

C2 

1159 

JNZ RUNSML 

CD 

15C0 

CALL FNDSKP 

D2 

1152 

JNC RUNTSL 

C3 

10B8 

JMP RSTART 

INPERR: 

2A 

200D 

LHLD STKINP 

F9 


SPHL 
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12EF 

El 

POP H 

12F0 

22 2007 

SHLD CURRNT 

12F3 

Dl 

POP D 

12F4 

01 

POP 0 

12F5 


INPUT: 

12F5 


IPl: 

12F5 

D5 

PUSH D 

12F6 

CD 1508 

CALL QTSTG 

12F9 

C3 1305 

JMP IP2 

t2FC 

CO 1024 

CALL TSTV 

12FF 

DA 1343 

JC IP4 

1302 

C3 1317 

JMP IP3 

1305 


IP2 : 

1305 

05 

PUSH 0 

1306 

CD 1024 

CALL TSTV 

1309 

DA 1527 

JC QWHAT 

130C 

lA 

LDAX D 

1300 

4F 

MOV C,A 

130E 

97 

SUB A 

130F 

12 

STAX 0 

1310 

Dl 

POP D 

1311 

CD 15 CA 

CALL PRTSTG 

1314 

79 

MOV A,C 

1315 

IB 

OCX D 

1316 

12 

STAX 0 

1317 


IP3: 

1317 

D5 

PUSH D 

1318 

EB 

XCHG 

1319 

2A 2007 

LHLD CURRNT 

131C 

E5 

PUSH H 

131 D 

21 12F5 

LXI H,IP1 

1320 

22 2007 

SHLD CURRNT 

1323 

21 0000 

LXI H,0 

1326 

39 

DAD SP 

1327 

22 200D 

SHLD STKINP 

132A 

D5 

PUSH 0 

132B 

3E3A 

MVI A,03AH 

1320 

CD 1550 

CALL GETLN 

1330 

CD 18A9 

CALL DBUFF 

1333 

CD 1363 

CALL EXPR 

1336 

CD 1A5C 

CALL CONT 

1339 

01 

POP 0 

133A 

EB 

XCHG 

133R 

73 

MOV M,E 

133C 

23 

INX H 

133 0 

72 

MOV M,D 

133F 

El 

POP H 

133F 

22 2007 

SHLD CURRNT 

1342 

Dl 

POP D 

1343 


IP4: 

1343 

Fl 

POP PSW 

1344 

CD 1058 

CALL TSTC 

1347 

2C 

.BYTE 

1348 

03 

.BYTE IP5-.- 

1349 

C3 12F5 

JMP IPl 

134C 


IP5 : 

134C 

CD 101D 

CALL FINI 

134F 


DEFLT: 

134F 

1 A 

LDAX D 

1350 

FE0D 

CPI 0DH 

1352 

CA 1360 

J2 LTl 


Abb. 3.3-1 
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1355 



LET: 

1355 

CO 

14F5 

CALL SETVAL 

1358 

CO 

1058 

CALL TSTC Abb. 3.3-1 

135B 

2C 


.BYTE 

135C 

03 


.BYTE LTl-.-l 

135D 

C3 

1355 

JNP LET 

1360 



LTl : 

1360 

CO 

1010 

CALL FINI 

;************************************ 

; EXPR UPR 

;************************************ 

1363 



EXPR: 

1363 

CO 

13AB 

CALL EXPR2 

1366 

E5 


PUSH H 

1367 



EXPRl: 

1367 

21 

1858 

LXI H,TAB8-1 

136A 

C3 

1879 

JMP EXEC 

136D 



XPll : 

136D 

CO 

1396 

CALL XP18 

1370 

08 


RC 

1371 

6F 


MOV L,A 

1372 

C9 


RET 

1373 



XP12 : 

1373 

CO 

1396 

CALL XP18 

1376 

C8 


RZ 

1377 

6F 


MOV L,A 

1378 

C9 


RET 

1379 



XP13 : 

1379 

CO 

1396 

CALL XP18 

137C 

C8 


RZ 

137D 

08 


RC 

137E 

6F 


MOV L,A 

137F 

C9 


RET 

1380 



XP14 : 

1380 

CO 

1396 

CALL XP18 

1383 

6F 


MOV L,A 

1384 

C8 


RZ 

1385 

08 


RC 

1386 

6C 


MOV L,H 

1387 

C9 


RET 

1388 



XP15 : 

1388 

CO 

1396 

CALL XP18 

138B 

C0 


RNZ 

13BC 

6F 


MOV L,A 

1380 

C9 


RET 

138E 



XP16 : 

138E 

CO 

1396 

CALL XP18 

1391 

00 


RNC 

1392 

6F 


MOV L.A 

1393 

C9 


RET 

1394 



XP17 : 

1394 

El 


POP H 

1395 

C9 


RET 

1396 



XP18 : 

1396 

79 


MOV A,C 

1397 

El 


POP H 

1398 

CI 


POP B 

1399 

E5 


PUSH H 

139A 

C5 


PUSH B 

139B 

4F 


MOV C,A 
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139C 

CD 13AB 

CALL EXPR2 

139F 

EB 

XCHG 

13A0 

E3 

XTHL 

13A1 

CO 14EB 

CALL. CKHLDE 

13A4 

Dl 

POP D 

13A5 

21 0000 

LXI H,0 

13A8 

3E01 

MVI A,1 

t3AA 

C9 

RET 

13AB 


EXPR2: 

13AB 

CD 1058 

CALL TSTC 

13AE 

2D 

.BYTE 02DH 

13AF 

06 

.BYTE XP21- 

13B0 

21 0000 

LXI H,0 

13B3 

C3 1300 

JMP XP26 

13BA 


XP21 : 

13B6 

CD 1058 

CALL TSTC 

13B9 

2B 

.BYTE 02BH 

13BA 

00 

.BYTE XP22- 

13BB 


XP22 : 

13BB 

CD 13E7 

CALL EXPR3 

13BE 


XP23 : 

13BE 

CD 1058 

CALL TSTC 

13C1 

2B 

.BYTE 02BH 

13C2 

15 

.BYTE XP25~ 

13C3 

E5 

PUSH H 

13C4 

CD 13E7 

CALL EXPR3 

13C7 


XP24 : 

13C7 

EB 

XCHG 

13 CB 

E3 

XTHL 

13C9 

7C 

MOV A,H 

13 CA 

AA 

XRA D 

13CB 

7A 

MOV A,D 

13CC 

19 

DAD D 

13 CD 

Dl 

POP D 

13CF 

FA 13BE 

JM XP23 

13D1 

AC 

XRA H 

13D2 

F2 13BE 

JP XP23 

13D5 

C3 1096 

JMP QHOW 

13D8 


XP25 : 

13 DB 

CD 1058 

CALL TSTC 

13 DB 

2D 

.BYTE 02DH 

13DC 

92 

.BYTE XP42- 

13 DD 


XP26 : 

13 DO 

E5 

PUSH H 

13 DE 

CD 13E7 

CALL EXPR3 

13E1 

CD 14D6 

CALL CHGSGN 

13E4 

C3 13C7 

JMP XP24 

13E7 


EXPR3: 

13E7 

CD 144B 

CALL EXPR4 

13EA 


XP31 : 

13EA 

CD 1058 

CALL TSTC 

13EO 

2A 

.BYTE 02AH 

13EE 

2D 

.BYTE XP34- 

13EF 

E5 

PUSH H 

13F0 

CD 144B 

CALL EXPR4 

13F3 

0600 

MVI B,0 

13F5 

CD 14D3 

CALL CHKSGN 

13F8 

E3 

XTHL 

13F9 

CD 14D3 

CALL CHKSGN 

13FC 

EB 

XCHG 

13FD 

E3 

XTHL 
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13FE 

7C 

MOV A,H 

13FF 

87 

ORA A 

1400 

CA 1409 

JZ XP32 

1403 

7A 

MOV A,D 

1404 

82 

ORA D 

1405 

EB 

XCHG 

140<S 

C2 1097 

JNZ AHOW 

1409 


XP32S 

1409 

7D 

MOV A,L 

140A 

21 0000 

LXI H,0 

140D 

87 

ORA A 

140E 

CA 1430 

JZ XP35 

1411 


XP33 : 

1411 

19 

OAD 0 

1412 

DA 1097 

JC AHOW 

1415 

30 

OCR A 

1416 

C2 1411 

JNZ XP33 

1419 

C3 1430 

JMP XP35 

141 C 


XP34 : 

14tC 

CO 1058 

CALL TSTC 

141F 

2F 

-BYTE 02FH 

1420 

4E 

.BYTE XP42-. 

1421 

E5 

PUSH H 

1422 

CO 1448 

CALL EXPR4 

1425 

0600 

MVI 8,0 

1427 

CD 1403 

CALL CHKSGN 

142A 

E3 

XTHL 

142B 

CD 1403 

CALL CHKSGN 

142E 

EB 

XCHG 

142F 

E3 

XTHL 

1430 

EB 

XCHG 

1431 

7A 

MOV A,D 

1432 

83 

ORA E 

1433 

CA 1097 

JZ AHOW 

1436 

C5 

PUSH 8 

1437 

CD 1486 

CALL OIVIDE 

143A 

60 

MOV H,B 

1438 

69 

MOV L,C 

143C 

CI 

POP 8 

143D 


XP35 : 

143D 

Dl 

POP 0 

143E 

7C 

MOV A,H 

143F 

87 

ORA A 

1440 

FA 1096 

JM QHOW 

1443 

78 

MOV A,B 

1444 

87 

ORA A 

1445 

FC 1406 

CM CHGSGN 

1448 

C3 13EA 

JMP XP31 

144B 


EXPR4: 

1448 

21 17FE 

LXI H,TAB4-1 

144E 

C3 1879 

JMP EXEC 

1451 


XP40: 

1451 

CD 1024 

CALL TSTV 

1454 

DA 145C 

JC XP41 

14 57 

7E 

MOV A,M 

1458 

23 

INX H 

1459 

66 

MOV H,M 

145A 

6F 

MOV L,A 

1458 

C9 

RET 

145C 


XP41 : 

145C 

CD 106C 

CALL TSTNUM 
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145F 

78 

MOV A,B 

1460 

B7 

ORA A 

1461 

C0 

RNZ 

1462 


PA RN: 

1462 

CD 1058 

CALL TSTC 

1465 

28 

.BYTE 028H 

1466 

09 

.BYTE XP43-.-1 ^ 

1467 

CD 1363 

CALL EXPR 

146A 

CD 1058 

CALL TSTC 

1460 

29 

.BYTE 029H 

146E 

01 

.BYTE XP43-.-1 

146F 


XP42: 

146F 

C9 

RET 

1470 


XP43 : 

1470 

C3 1527 

JMP QWHAT 

1473 


RNO: 

1473 

CD 1462 

CALL PARN 

1476 

7C 

MOV A,H 

1477 

B7 

ORA A 

1478 

FA 1096 

JM OHOW 

147B 

B5 

ORA L 

147C 

CA 1096 

JZ QHOW 

147F 

D5 

PUSH D 

1430 

E5 

PUSH H 

1481 

2A 2019 

LHLD RANPNT 

1484 

11 2005 

LXI D,LSTROM 

1487 

CD 100F 

CALL COMP 

148A 

DA 1490 

JC RAI 

148D 

21 16C0 

LXI H,START 

1490 


RAI : 

1490 

5E 

MOV E,M 

1491 

23 

INX H 

1492 

56 

MOV D,M 

1493 

22 2019 

SHLD RANPNT 

1496 

El 

POP H 

1497 

EB 

XCHG 

1498 

C5 

PUSH B 

1499 

CD 14B6 

CALL DIVIDE 

149C 

CI 

POP B 

149D 

Dl 

POP D 

149E 

23 

INX H 

149F 

C9 

RET 

14Aß 


ABS: 

14A0 

CD 1462 

CALL PARN 

14A3 

IB 

DCX D 

14A4 

CD 14D3 

CALL CHKSGN 

14A7 

13 

INX D 

14A8 

C9 

RET 

14A9 


SIZE: 

14A9 

2A 201B 

LHLD TXTUNF 

14AC 

D5 

PUSH D 

14AD 

EB 

XCHG 

14 AE 

2A 2148 

LHLD TXTEND 

1481 

CO 14CC 

CALL SUBDE 

14B4 

Dl 

POP D 

14B5 

C9 

RET 

;************************************ 


Abb. 3.3-1 
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14B6 


DIVIDE: 

14B6 

E5 

PUSH H 

14B7 

AC 

MOV L,H 

14B8 

2A00 

MVI H,0 

14BA 

CD 14 CI 

CALL DVl 

14130 

41 

MOV B,C 

14BE 

7D 

MOV A,L 

14BF 

El 

POP H 

14C0 

A7 

MOV H,A 

14C1 


DVl : 

14C1 

0EFF 

MVI C,0FFH 

14C3 


DV2: 

14C3 

0C 

INR C 

14C4 

CD 14CC 

CALL SUBDE 

14C7 

D2 14C3 

JNC DV2 

14 CA 

19 

OAD D 

14 CB 

C9 

RET 

14CC 


SUBDE: 

14CC 

7D 

MOV A,L 

14 CD 

93 

SUB E 

14 CE 

AF 

MOV L,A 

14 CF 

7C 

MOV A,H 

14 DR 

9A 

SBB D 

14D1 

67 

MOV H,A 

14D2 

C9 

RET 

14D3 


CHKSGN: 

14D3 

7C 

MOV A,H 

14D4 

B7 

ORA A 

14D5 

F0 

RP 

14D6 


CHGSGN: 

14 DA 

7C 

MOV A,H 

14D7 

B5 

ORA L 

1 4 D8 

C8 

RZ 

14D9 

7C 

MOV A,H 

14 DA 

F5 

PUSH PSW 

14 DB 

2F 

CMA 

14DC 

A7 

MOV H,A 

14DD 

7D 

MOV A,L 

14 DE 

2F 

CMA 

14 DF 

AF 

MOV L,A 

14E0 

23 

INX H 

14E1 

Fl 

POP PSW 

14E2 

AC 

XRA H 

14E3 

F2 1096 

JP QHOW 

14E6 

78 

MOV A,B 

14E7 

EE30 

XRI 980H 

14E9 

47 

MOV B,A 

14EA 

C9 

RET 

14EB 


CKHLDE: 

14EB 

7C 

MOV A,H 

14EC 

AA 

XRA D 

14E0 

F2 14F1 

JP CKl 

14Fa 

EB 

XCH6 

14F1 


CKl : 

14F1 

CD 100F 

CALL COMP 

14F4 

C9 

RET 


;************************************ 
; SETVAL EIN ENOCHK ERROR UPR 
;************************************ 
5 

14F5 BETVAL: 
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14F5 

CD 1024 

CALL TSTV 

14F8 

DA 1527 

JC QWHAT 

14FB 

E5 

PUSH H 

14FC 

CD 1058 

CALL TSTC 

14FF 

3D 

.BYTE 03DH 

1500 

0A 

.BYTE SVl-.- 

1501 

CD 1363 

CALL EXPR 

1504 

44 

MOV B,H 

1505 

4D 

MOV C,L 

1506 

El 

POP H 

1507 

71 

MOV M,C 

1508 

23 

INX H 

1509 

70 

MOV M,B 

t50A 

C9 

RET 

150B 


SVl : 

150B 

C3 1527 

JMP QWHAT 

150E 


FIN: 

t50E 

CD 1058 

CALL TSTC 

1511 

3B 

.BYTE 03BH 

1512 

04 

.BYTE FI1-. 

1513 

Fl 

POP PSW 

1514 

C3 1159 

JMP RUNSML 

1517 


FIl : 

1517 

CD 1058 

CALL TSTC 

151 A 

0D 

.BYTE 0DH 

151B 

04 

.BYTE FI2-. 

151C 

Fl 

POP PSW 

151D 

C3 1149 

JMP RUNNXL 

1520 


FI2 : 

1520 

C9 

RET 

1521 


ENDCHK: 

1521 

CD 1015 

CALL IGNB 

1524 

FE0D 

CPI 0DH 

1526 

C8 

RZ 

1527 


QWHAT: 

1527 

D5 

PUSH D 

1528 


AWHAT s 

1528 

11 10AA 

LXI D,WHAT 

152B 


ERROR: 

152B 

97 

SUB A 

152C 

CD 15CA 

CALL PRTSTG 

152F 

Dl 

POP D 

1530 

1 A 

LDAX D 

1531 

F5 

PUSH PSW 

1532 

97 

SUB A 

1533 

12 

STAX D 

1534 

2A 2007 

LHLD CURRNT 

1537 

E5 

PUSH H 

1538 

7E 

MOV A,M 

1539 

23 

INX H 

153A 

B6 

ORA M 

153B 

Dl 

POP D 

153C 

CA 10B8 

JZ RSTART 

153F 

7E 

MOV A,M 

1540 

B7 

ORA A 

1541 

FA 12EB 

JM INPERR 

1544 

CD 164C 

CALL PRTLN 

1547 

IB 

OCX D 

1548 

Fl 

POP PSW 

1549 

12 

STAX D 

154A 

3E3F 

MVI A,03FH 
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154C 

CD 16FB 

CALL OUTC 


154F 

97 

SUB A 


1550 

CD 15CA 

CALL PRTSTG 

Abb. 

1553 

C3 10B8 

JMP RSTART 


1556 


QSORRY: 


1556 

D5 

PUSH D 


1557 


ASORRY: 


1557 

11 10B1 

LXI D,S0RRY 


155A 

C3 152B 

JMP ERROR 



***^(•***•^(•**^^•************************* 
GETLN FNDLN UPR 

************************************ 


155D 


GETLN: 

155D 

CD 16FB 

CALL OUTC 

1560 

CD 18A9 

CALL DBUFF 

1563 


GLl : 

1563 

CD 1720 

CALL CHKIO 

1566 

FE01 

CPI 1 

1568 

CA 1588 

JZ GL3 

156B 

CD 16FB 

CALL OUTC 

156E 

FE0A 

CPI 0AH 

1570 

CA 1563 

JZ GLl 

1573 

B7 

ORA A 

1574 

CA 1563 

JZ GLl 

1577 

FEIB 

CPI 01BH 

1579 

CA 1598 

JZ GL4 

157C 

12 

STAX D 

157D 

13 

INX D 

t57E 

FE0D 

CPI 0DH 

1580 

C8 

RZ 

1531 

7B 

MOV A,E 

1582 

CD 18B9 

CALL CXBUFE 

1585 

C2 1563 

JNZ GLl 

1588 


GL3 : 

1588 

7B 

MOV A,E 

1589 

CD 18C0 

CALL CXBUFA 

158C 

CA 1598 

JZ GL4 

15BF 

IB 

DCX D 

1590 

3E08 

MVI A,8 

1592 

CD 16FB 

CALL OUTC 

1595 

C3 1563 

JMP GLl 

1598 


GL4 : 

1598 

CO 16F9 

CALL CRLF 

159B 

3E0B 

MVI A,0BH 

159D 

C3 155D 

JMP GETLN 

15A0 


FNDLN: 

15A0 

7C 

MOV A,H 

15A1 

B7 

ORA A 

15A2 

FA 1096 

JM QHOW 

15A5 

11 214E 

LXI D,TXTBGN 

15A8 


FNDLP: 

15A8 


FLl : 

15A8 

E5 

PUSH H 

15A9 

2A 201B 

LHLD TXTUNF 

15AC 

2B 

DCX H 

15AD 

CD 100F 

CALL COMP 

15B0 

El 

POP H 

15B1 

D8 

RC 

15B2 

lA 

LDAX D 

15R3 

95 

SUB L 


48 



PAGE 17 


TDL Z8e CP/M DISK ASSEMBLER VERSION 2.21 
.MAIN. - RDK BASIC INTERPRETER 3K 780524 


V3.3 


15B4 

47 

MOV B,A 

15B5 

13 

INX D 

15B6 

lA 

LDAX D 

15B7 

9C 

SBB H 

15B8 

DA 15BF 

JC FL2 

15BB 

IB 

DCX D 

15BC 

B0 

ORA B 

15BD 

C9 

RET 

15BE 


FNDNXT: 

15BE 

13 

INX D 

15BF 


FL2 : 

15BF 

13 

INX D 

15C0 


FNDSKP: 

15C0 

lA 

LDAX D 

15C1 

FE0D 

CPI 0DH 

15C3 

C2 15BF 

JNZ FL2 

15C6 

13 

INX D 

15C7 

C3 15A8 

JMP FLl 


Abb. 3.3-1 


;************************************ 
; PRTSTG QTSTG PRTNUM PRTLN UPR 
;************************************ 


15 CA 


PRTSTG: 

15CA 

47 

MOV B,A 

15 CB 


PSI : 

15CB 

lA 

LDAX D 

15CC 

13 

INX D 

15CD 

B8 

CMP B 

15CE 

C8 

RZ 

15CF 

CD 16FB 

CALL eure 

15D2 

FE0D 

CPI 0DH 

15 04 

C2 15 CB 

JNZ PSI 

15D7 

C9 

RET 

15D8 


QTSTG: 

15D8 

CD 1058 

CALL TSTC 

15DB 

22 

.BYTE 022H 

15DC 

0F 

.BYTE QT3-.- 

15 DD 

3E22 

MVI A,022H 

15 DF 


QTl : 

15 DF 

CD 15CA 

CALL PRTSTG 

15E2 

FE0D 

CPI 0DH 

15E4 

El 

POP H 

15E5 

CA 1149 

JZ RUNNXL 

15E8 


QT2: 

15E8 

23 

INX H 

15E9 

23 

INX H 

15EA 

23 

INX H 

15EB 

E9 

PCHL 

15EC 


QT3 : 

15EC 

CD 1058 

CALL TSTC 

15EF 

27 

.BYTE 027H 

15F0 

05 

.BYTE QT4-. 

15F1 

3E27 

MVI A,027H 

15F3 

C3 15 DF 

JMP QTl 

15F6 


QT4 : 

15F6 

CD 1058 

CALL TSTC 

15F9 

5F 

.BYTE 05FH 

15FA 

0C 

.BYTE QT5-. 

15FB 

3E8D 

MVI A,08DH 

15FD 

CD 16FB 

CALL OUTC 

1 600 

CD 16FB 

CALL OUTC 


-1 


-1 


49 


PAGE 18 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 

.MAIN. - RDK BASIC INTERPRETER 3K 780524 V3.3 


1603 

El 

POP H 

1604 

C3 15E8 

JMP QT2 

1607 


QT5 : 

1607 

C9 

RET 

1608 


PRTNUM: 

1608 

0600 

MVI 8,0 

160A 

CD 14D3 

CALL CHKSGN 

160D 

F2 1613 

JP PNI 

1610 

062D 

MVI B,02DH 

1612 

00 

OCR C 

1613 


PNI : 

1613 

D5 

PUSH D 

1614 

11 000A 

LXI D,0AH 

1617 

D5 

PUSH D 

1618 

0D 

DCR C 

1619 

C5 

PUSH B 

161A 


PN2 : 

161A 

CD 14B6 

CALL OIVIDE 

161 D 

78 

MOV A,B 

161E 

Bl 

ORA C 

161F 

CA 162A 

JZ PN3 

1622 

E3 

XTHL 

1623 

2D 

DCR L 

1624 

E5 

PUSH H 

1625 

60 

MOV H,B 

1626 

69 

MOV L,C 

1627 

C3 161A 

JMP PN2 

162A 


PN3: 

162A 

CI 

POP B 

1628 


PN4: 

162B 

0D 

DCR C 

162C 

79 

MOV A,C 

162D 

B7 

ORA A 

162E 

FA 1639 

JM PN5 

1631 

3E20 

MVI A,020H 

1633 

CD 16FB 

CALL OUTC 

1636 

C3 162B 

JMP PN4 

1639 


PN5 : 

1639 

78 

MOV A,B 

163A 

B7 

ORA A 

163B 

C4 16FB 

CNZ OUTC 

163E 

5D 

MOV E,L 

163F 


PN6 : 

163F 

7B 

MOV A,E 

1640 

FE0A 

CPI 0AH 

1642 

Dl 

POP D 

1643 

C8 

RZ 

1644 

C630 

ADI 030H 

1646 

CD 16FB 

CALL OUTC 

1649 

C3 163F 

JMP PN6 

164C 


PRTLN: 

164C 

lA 

LDAX D 

164D 

6F 

MOV L,A 

164E 

13 

IMX D 

164F 

1 A 

LDAX D 

1650 

67 

MOV H,A 

1651 

13 

INX D 

1652 

0E04 

MVI C,4 

1654 

CD 1608 

CALL PRTNUM 

1657 

3E20 

MVI A,020H 

1659 

CD 16FB 

CALL OUTC 
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165C 

97 

SUB A 

1650 

CD 15 CA 

CALL PRTSTG 

1660 

C9 

RET 


************************************ 
MVUP MVDOWN POPA PUSHA UPR 

************************************ 


1661 


MVUP: 

1661 

CD 100F 

CALL COMP 

1664 

C8 

RZ 

1665 

1 A 

LDAX D 

1666 

02 

STAX B 

1667 

13 

INX D 

1668 

03 

INX B 

1669 

C3 1661 

JMP MVUP 

166C 


MVDOWN: 

166C 

78 

MOV A,B 

166D 

92 

SUR D 

166E 

C2 1674 

JNZ MDI 

1671 

79 

MOV A,C 

1672 

93 

SUB E 

1673 

C8 

RZ 

1674 


MDI : 

1674 

IB 

OCX D 

1675 

2B 

DCX H 

1676 

lA 

LDAX D 

1677 

77 

MOV M,A 

1678 

C3 166C 

JMP MVDOWN 

167B 


POPA: 

167B 

CI 

POP B 

167C 

El 

POP H 

167D 

22 200F 

SHLD LOPVAR 

1680 

7C 

MOV A,H 

1681 

B5 

ORA L 

1682 

CA 1695 

JZ PPl 

1685 

El 

POP H 

1686 

22 2011 

SHLD LOPINC 

1689 

El 

POP H 

168A 

22 2013 

SHLD LOPLMT 

163D 

El 

POP H 

16BE 

22 2015 

SHLD LOPLN 

1691 

El 

POP H 

1692 

22 2017 

SHLD LOPPT 

1695 


PPl : 

1695 

C5 

PUSH B 

1696 

C9 

RET 

1697 


PUSHA: 

1697 

21 2045 

LXI H,STKLMT 

169A 

CD 14D6 

CALL CHGSGN 

169D 

CI 

POP B 

169E 

39 

DAD SP 

169F 

D2 1556 

JNC OSORRY 

16A2 

2A 200F 

LHLD LOPVAR 

16A5 

7C 

MOV A,H 

16A6 

B5 

ORA L 

16A7 

CA 16BD 

JZ PUl 

16AA 

2A 2017 

LHLD LOPPT 

16AD 

E5 

PUSH H 

16 AE 

2A 2015 

LHLD LOPLN 

16B1 

E5 

PUSH H 

16B2 

2A 2013 

LHLD LOPLMT 


Abb. 3.3-1 
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16B5 

E5 

PUSH H 

16B6 

2A 2011 

LHLO LOPINC 

16B9 

E5 

PUSH H 

16BA 

2A 200F 

LHLD LOPVAR 

16BD 


PUl : 

1680 

E5 

PUSH H 

16BE 

C5 

PUSH B 

168F 

C9 

RET 


**************************** 
* OUTC CHKIO UPR * 

**************************** 


16C0 


START: 

16C0 

31 210F 

LXI SP,STACK 

16C3 

3 EFF 

MVI A,0FFH 

16C5 


INIT: 

16C5 

32 2006 

STA OCSW 

16C8 

1603 

MVI 0,3 

16 CA 


PATLOP: 

16CA 

CD 16F9 

CALL CRLF 

16 CD 

15 

OCR 0 

16CE 

C2 16CA 

JNZ PATLOP 

16 Dl 

97 

SUB A 

t6D2 

11 173A 

LXI 0,MSG1 

1 6 05 

CD 15 CA 

CALL PRTSTG 

16 08 

21 16C0 

LXI H,START 

16 DB 

22 2019 

SHLD RANPNT 

160E 

21 214E 

LXI H,TXTBGN 

16E1 

22 201B 

SHLD TXTUNF 

16E4 

21 23A8 

LXI H,TXTE 

16F7 

22 2148 

SHLD TXTEND 

16EA 

21 23AA 

LXI H,BUFA 

16ED 

22 214A 

SHLD BUFFER 

16F0 

21 23EA 

LXI H,BUFE 

16F3 

22 214C 

SHLD BUFEND 

16F6 

C3 10B8 

JMP RSTART 

16F9 


CRLF: 

16F9 

3E0D 

MVI A,0DH 

16FB 


OUTC: 

16FB 

C5 

PUSH B 

16FC 

F5 

PUSH PSW 

16FD 

3A 2006 

LDA OCSW 

1700 

B7 

ORA A 

1701 


0C2 : 

1791 

C2 1707 

JNZ 0C3 

1704 

Fl 

POP PSW 

1705 

CI 

POP B 

1706 

C9 

RET 

1707 


0C3 : 

1707 

Fl 

POP PSW 

1708 

F5 

PUSH. PSW 

1709 

4F 

MOV- C,A 

170A 


LPT: 

170A 

79 

MOV A,C 

170B 

FE0D 

CPI 0DH 

1700 

CA 1716 

JZ LINEF 

1710 


Hl : 

1710 

CD 1009 

CALL ECHO 


52 



PAGE 21 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2-21 

.MAIN. - RDK BASIC INTERPRETER 3K 780524 V3.3 


1713 

Fl 

POP PSW 

1714 

CI 

POP B 

1715 

C9 

RET 

1716 


LINEF: 

1716 

0E0D 

MVI C,0DH 

1718 

CD 1009 

CALL ECHO 

171B 

0E0A 

MVI C,0AH 

171D 

C3 1710 

JMP Hl 

1720 


CHKIO: 

1720 

CD 1006 

CALL CI 

1723 

E67F 

ANI 7FH 

1725 

FE02 

CPI 2 

1727 

C2 1734 

JNZ eil 

172A 

3A 2006 

LDA OeSW 

172D 

2F 

CMA 

172E 

32 2006 

STA OeSW 

1731 

C3 1720 

JMP CHKIO 

1734 


eil ! 

1734 

FE03 

CPI 3 

1736 

C0 

RNZ 

1737 

C3 10B8 

JMP RSTART 

173A 


MSGl : 

173A 

52444B205052 

-ASCII "RDK PRO\ 

1740 

4F4D505420 

\MPT " 

1745 

424153494320 

-ASCII "BASIC V\ 

174B 

56332E322033 

\3.2 3K\ 

1751 

4B 

\ 

1752 

0D0A 

" 


;******************************** 
;♦ TABLES DIRECT EXEC * 

;******************************** 
-OPSYN -WOROjDWA; 

-OPSYN .ASCIZ,TX 


1754 


TABl : 

1754 

4C49535400 

TX "LIST" 

1759 

1173 

DWA LIST 

175B 

52554E00 

TX "RUN" 

175F 

1143 

DWA RUN 

1761 

4E455700 

TX "NEW" 

1765 

1134 

DWA NEW 

1767 

42594500 

TX "BYE" 

176B 

13F8 

DWA BYE 

176D 

454E4400 

TX "END" 

1771 

18C7 

DWA END 

1773 


TAB2: 

1773 

4E45585400 

TX "NEXT" 

1778 

1273 

DWA NEXT 

177A 

4C455400 

TX "LET" 

177F 

1355 

DWA LET 

1780 

494600 

TX "IF" 

1 783 

12DA 

DWA IFF 

1785 

474F544F00 

TX "GOTO" 

178A 

1162 

DWA GOTO 

178C 

474F53554200 

TX "GOSUB" 

1792 

11 Dl 

DWA GOSUB 

1794 

52455455524E 

TX "RETURN' 

179A 

00 

\ 

179B 

11F3 

DWA RETURN 

179D 

52454D00 

TX "REM" 


\ 


Abb. 3.3-1 
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17A1 

12D4 

DWA REM 

17A3 

464F5200 

TX "FOR" 

17A7 

120E 

DWA FOR 

17A9 

494E50555400 

TX "INPUT“ 

17AF 

12F5 

DWA INPUT 

1781 

5052494E5400 

TX "PRINT“ 

1787 

1188 

DWA PRINT 

1789 

53544F5000 

TX "STOP“ 

17BE 

113D 

DWA STOP 

17C0 

43414C4C00 

TX "CALL“ 

17C5 

18FC 

DWA CALL 

17C7 

4F5554434a41 

TX "OUTCHAR“\ 

17 CD 

5200 

\ 

17 CF 

1A01 

DWA OUTCHAR 

17 Dl 

4F555400 

TX "OUT“ 

17D5 

1909 

DWA OUT 

17D7 

4F2400 

TX "0$“ 

17DA 

195A 

DWA 0 

17DC 

492400 

TX “I$“ 

170F 

1967 

DWA I 

17E1 

504F4B4500 

TX "POKE“ 

17E6 

19A0 

DWA POKE 

17E8 

54414200 

TX "TAB“ 

17EC 

192F 

DWA TAB 

17EE 

4259544500 

TX "BYTE“ 

17F3 

1985 

DWA BYTE 

17F5 

574F524400 

TX "WORD“ 

17FA 

198F 

DWA WORD 

17FC 

00 

.BYTE 0 

17FD 

134F 

DWA DEFLT 

17FF 


TAB4 : 

17FF 

524E4400 

TX "RND“ 

1803 

1473 

DWA RND 

1805 

41425300 

TX "ABS“ 

1809 

14A0 

DWA ABS 

1808 

53495A4500 

TX "SIZE“ 

1810 

14A9 

DWA SIZE 

1812 

5045454800 

TX "PEEK“ 

1817 

1999 

DWA PEEK 

1819 

494E43484152 

TX "INCHAR“\ 

181F 

00 

\ 

1820 

1A0B 

DWA INCHAR 

1822 

48455800 

TX "HEX“ 

1826 

1A12 

DWA HEX 

1828 

494E00 

TX "IN“ 

1828 

1940 

DWA IN 

182D 

2700 

TX “' “ 

182F 

19E9 

DWA QUOTE 

1831 

544F5000 

TX "TOP“ 

1835 

19F7 

DWA TOP 

1837 

4C454E00 

TX "LEN“ 

1838 

19FC 

DWA LENGTH 

1&3D 

4353545300 

TX "CSTS“ 

1842 

19E1 

DWA CSTAT 

1844 

00 

.BYTE 0 

1845 

1451 

DWA XP40 

1847 


TABS : 

1847 

544F00 

TX "TO“ 

184A 

121E 

DWA FRl 

184C 

00 

.BYTE 0 

184D 

1527 

DWA QWHAT 
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184F 


TAB6 : 

184F 

5354455000 

TX "STEP 

1854 

122A 

DWA FR2 

1856 

00 

.BYTE 0 

1857 

1230 

DWA FR3 

1859 


TAB8 : 

1859 

3E3D00 

TX ">=" 

185C 

136D 

DWA XPll 

185E 

2300 

TX 

1860 

1373 

DWA XP12 

1862 

3E00 

TX ">" 

1864 

1379 

DWA XP13 

1866 

3D00 

TX "=" 

1868 

1388 

DWA XP15 

186A 

3C3D00 

TX "< = •• 

186D 

1380 

DWA XP14 

186F 

3C00 

TX "<" 

1871 

138E 

DWA XP16 

1873 

00 

-BYTE 0 

1874 

1394 

DWA XP17 


**************** 
* DIRECT MODUL * 
**************** 


1876 


DIRECT: 

1876 

21 1753 

LXI H,TAB1 

1879 


EXEC: 

1879 


EX0: 

1879 

CD 1015 

CALL IGNB 

187C 

D5 

PUSH D 

187D 


EXl : 

187D 

lA 

LDAX D 

187E 

13 

INX D 

187F 

FE2E 

CPI 

1881 

CA 189B 

JZ EX3 

1884 

23 

INX H 

1885 

BE 

CMP M 

1886 

CA 137D 

JZ EXl 

1889 

3E00 

MVI A,0 

188B 

18 

DCX D 

188C 

BE 

CMP M 

188D 

CA 18A2 

JZ EX5 

1890 


EX2 : 

1890 

23 

INX H 

1891 

BE 

CMP M 

1892 

C2 1890 

JNZ EX2 

1895 

23 

INX H 

1896 

23 

INX H 

1897 

Dl 

POP D 

1898 

C3 1379 

JMP EX0 

189B 


EX3 : 

189B 

3E00 

MVI A,0 

189D 


EX4 : 

189D 

23 

INX H 

189E 

BE 

CMP M 

189F 

C2 189D 

JNZ EX4 

18A2 


EX5 : 


Abb. 3.3-1 
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18A2 

23 

INX H 

18A3 

7E 

MOV A,M 

18A4 

23 

INX H 

18A5 

66 

MOV H,M 

18A6 

6F 

MOV L,A 

18A7 

Fl 

POP PSW 

18A8 

E9 

PCHL 


*************** 
* END EXEC * 
*************** 


Abb. 3.3-1 


18A9 


DBUFF: 

18A9 

E5 

PUSH H 

18AA 

2A 214A 

LHLD BUFFER 

18AD 

54 

MOV D,H 

18AE 

5D 

MOV E,L 

18AF 

El 

POP H 

18B0 

C9 

RET 

18B1 


DTXTE: 

laRl 

E5 

PUSH H 

18B2 

2A 2148 

LHLD TXTEND 

18B5 

54 

MOV D,H 

18B6 

5D 

MOV E,L 

18B7 

El 

POP H 

18B8 

C9 

RET 

18B9 


CXBUFE: 

18B9 

E5 

PUSH H 

18BA 

2A 214C 

LHLD BUFEND 

18BD 

BD 

CMP L 

18BE 

El 

POP H 

18BF 

C9 

RET 

18C0 


5 

CXBUFA: 

18C0 

E5 

PUSH H 

18C1 

2A 214A 

LHLD BUFFER 

18C4 

BO 

CMP L 

18C5 

El 

POP H 

18C6 

C9 

RET 

18C7 


END: 

18C7 

CD 1363 

CALL EXPR 

18 CA 

EB 

XCHG 

18 CB 

21 23A8 

LXI H,TXTE 

18CE 

EB 

XCHG 

18 CF 

CD 100F 

CALL COMP 

1802 

DA 1557 

JC ASORRY 

18D5 

7C 

MOV A,H 

18D6 

B7 

ORA A 

18D7 

FA 1557 

JM ASORRY 

18DA 

7E 

MOV A,M 

18 DB 

2F 

CMA 

180C 

77 

MOV M,A 

18 DD 

46 

MOV B,M 

18DE 

B8 

CMP B 

18 DF 

C2 1557 

JNZ ASORRY 

18E2 

22 214C 

SHLO BUFEND 

18E5 

7D 

MOV A.L 
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18EÄ 

D684 

SUI 132 

18E8 

6F 

MOV L,A 

18E9 

7C 

MOV A,H 

18EA 

DE00 

SBI 0 

18EC 

67 

MOV H,A 

18ED 

22 214A 

SHLD BUFFER 

18F0 

2B 

DCX H 

18F1 

2B 

DCX H 

18F2 

22 2148 

SHLD TXTEND 

18F5 

C3 10B8 

JMP RSTART 

18F8 


BYE: 

18F8 

FF 

RST 7 

18F9 

C3 10B8 

JMP RSTART 

5 

18FC 


5 

CALL: 

18FC 

CO 1363 

CALL EXPR 

18FF 

D5 

PUSH D 

1900 

01 1905 

LXI B,HERE 

1903 

C5 

PUSH B 

1904 

E9 

PCHL 

1905 


HERE: 

1905 

Dl 

POP D 

1906 

CD 101D 

CALL FINI 

1909 


OUT: 

1909 

CD 1462 

CALL PARN 

190C 

E5 

PUSH H 

190D 

CD 1058 

CALL TSTC 

1910 

3D 

.BYTE "=" 

1911 

lA 

.BYTE RSV0- 

1912 

CD 1363 

CALL EXPR 

1915 

45 

MOV B,L 

1916 

3ED3 

MVI A,0D3H 

1918 

32 2002 

STA lOBUFA 

191B 

El 

POP H 

191C 

7D 

MOV A,L 

191D 

32 2003 

STA lOBUFB 

1920 

3EC9 

MVI A,0C9H 

1922 

32 2004 

STA lOBUFC 

1925 

78 

MOV A,B 

1926 

CD 2002 

CALL lOBUFA 

1929 

CD 10 ID 

CALL FINI 

192C 


RSV0 : 

192C 

C3 1527 

JMP QWHAT 

192F 


TAB : 

192F 

CD 1462 

CALL PARN 

1932 


Al : 

1932 

7C 

MOV A,H 

1933 

B5 

ORA L 

1934 

CC IBID 

CZ FINI 

1937 

2B 

DCX H 

1938 

3E20 

MVI A,20H 

193A 

CD 16FB 

CALL OUTC 

193D 

C3 1932 

JMP Al 

1940 


5 

IN: 

1940 

CD 1462 

CALL PARN 

1943 

E5 

PUSH H 
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1944 

3EDB 

MVI A,0DBH 

1946 

32 2002 

STA lOBUFA 

1949 

El 

POP H 

194A 

70 

MOV A,L 

194B 

32 2003 

STA lOBUFB 

194E 

3EC9 

MVI A,0C9H 

19r»0 

32 2004 

STA lOBUFC 

1953 

CO 2002 

CALL lOBUFA 

1956 

2600 

MVI H,0 

1958 

6F 

MOV L,A 

1959 

C9 

RET 

5 

195A 


? 

0: 

195A 

CO 1363 

CALL EXPR 

1950 

05 

PUSH 0 

195E 

EB 

XCHG 

195F 

AF 

XRA A 

1960 

CO 15CA 

CALL PRTSTG 

1963 

Dl 

POP 0 

1964 

CD 1010 

CALL FINI 

5 

1967 


? 

I: 

1967 

CD 1363 

CALL EXPR 

196A 

05 

PUSH 0 

196B 

EB 

XCHG 

196C 

2A 2018 

LHLD TXTUNF 

196F 

EB 

XCHG 

1970 

CD 100F 

CALL COMP 

1973 

DA 1557 

JC ASORRY 

1976 

CO 18A9 

CALL DBUFF 

1979 

CD 1563 

CALL GLl 

197C 

44 

MOV B,H 

197D 

40 

MOV C,L 

197E 

EB 

XCHG 

197F 

2B 

OCX H 

1980 

CD 18A9 

CALL DBUFF 

1983 

05 

PUSH D 

1984 

CD 1661 

CALL MVUP 

1987 

AF 

XRA A 

1988 

02 

STAX B 

1989 

Dl 

POP D 

198A 

23 

INX H 

198B 

CD 14CC 

CALL SUBDE 

198E 

EB 

XCHG 

198F 

21 2000 

LXI H,LEGT 

1992 

73 

MOV M,E 

1993 

23 

INX H 

1994 

72 

MOV M,D 

1995 

Dl 

POP D 

1996 

CD 1010 

CALL FINI 

? 

1999 


PEEK: 

1999 

CD 1462 

CALL PARN 

199C 

6E 

MOV L,M 

1990 

2600 

MVI H,0 

199F 

C9 

RET 
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19A0 


POKE: 

19A0 

CD 1363 

CALL EXPR 

19 A3 

E5 

PUSH H 

19A4 

CD 1058 

CALL TSTC 

19A7 

2C 

.BYTE 

19A8 

09 

.BYTE PKl- 

19A9 

CD 1363 

CALL EXPR 

19AC 

70 

MOV A,L 

19 AD 

El 

POP H 

19AE 

77 

MOV M,A 

19AF 

CD 101D 

CALL FINI 

19B2 


PKl : 

19B2 

C3 1527 

JMP QWHAT 

19B5 


BYTE: 

19B5 

CD 1462 

CALL PARN 

19B8 

7D 

MOV A,L 

19B9 

CD 19CD 

CALL WRIT2 

19BC 

CD 101D 

CALL FINI 

19BF 


5 

WORD: 

19BF 

CD 1462 

CALL PARN 

19C2 

7C 

MOV A,H 

19C3 

CD 19C0 

CALL WRIT2 

19C6 

7D 

MOV A,L 

19C7 

CO 19CD 

CALL WRIT2 

19 CA 

CD 101D 

CALL FINI 

19CO 


WRIT2: 

19 CD 

F5 

PUSH PSW 

19CE 

0F 

RRC 

19 CF 

0F 

RRC 

19D0 

0F 

RRC 

19 Dl 

0F 

RRC 

19D2 

CD 19D6 

CALL IST 

19D5 

Fl 

POP PSW 

19D6 


IST: 

19 DA 

E60F 

ANI 0FH 

19D8 

C690 

ADI 90H 

19 DA 

27 

DAA 

190B 

CE40 

ACI 40H 

19 DD 

27 

DAA 

19 DE 

C3 16FB 

JMP OUTC 

19E1 


CSTAT: 

19E1 

CD 100C 

CALL CSTS 

19E4 

2F 

CMA 

19E5 

6F 

MOV L,A 

19E6 

2600 

MVI H,0 

19E8 

C9 

RET 

19E9 


? 

QUOTE: 

19E9 

lA 

LDAX D 

19EA 

13 

INX D 

19EB 

6F 

MOV L,A 

19EC 

2600 

MVI H,0 

19EE 

CD 1058 

CALL TSTC 

19F1 

27 

.BYTE " 

19F2 

01 

.BYTE ASCI- 

19F3 

C9 

RET 

19F4 


ASCI: 

19F4 

C3 1527 

JMP QWHAT 


Abb. 3.3-1 
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19F7 


TOP: 

19F7 

2A 2016 

LHLD TXTUNF 

19FA 

23 

INX H 

19FB 

C9 

RET 

19FC 


LENGTH: 

19FC 

2A 2000 

LHLD LEGT 

19FF 

2B 

DCX H 

lA0e 

C9 

RET 

1A01 


OUTCHAR: 

1A01 

CD 1363 

CALL EXPR 

1A04 

7D 

MOV A,L 

1A05 

CD 16FB 

CALL OUTC 

1A08 

CD 1010 

CALL FINI 

1A0B 


INCHAR: 

1A0B 

CD 1720 

CALL CHKIO 

1A0E 

2600 

MVI H,0 

1A10 

6F 

MOV L,A 

lAll 

C9 

RET 

1A12 


HEX: 

1A12 

C5 

PUSH B 

1A13 

21 0000 

LXI H,0 

1A16 

CD 1058 

CALL TSTC 

1A19 

28 

.BYTE 

lAlA 

ID 

.BYTE HN2-.- 

lAlB 


HNXTH: 

lAlB 

lA 

LDAX D 

lAlC 

FE0D 

CPI 0DH 

lAlE 

CA 1527 

JZ QWHAT 

1A21 

CD 1A3D 

CALL CNVBN 

1A24 

29 

DAD H 

1A25 

29 

DAD H 

1A26 

29 

DAD H 

1A27 

29 

DAD H 

1A28 

0600 

MVI B,0 

1A2A 

4F 

MOV C,A 

1A2B 

09 

DAD B 

1A2C 

13 

INX D 

1A2D 

CD 1058 

CALL TSTC 

1A30 

29 

.BYTE 

1A31 

03 

.BYTE HNl-.- 

1A32 

C3 1A3B 

JMP POPRET 

1A35 


HNl : 

1A35 

C3 lAlB 

JMP HNXTH 

1A38 


HN2 : 

1A38 

C3 1527 

JMP QWHAT 

1A3B 


POPRET: 

IA3B 

CI 

POP B 

1A3C 

C9 

RET 

5 

1A3D 


CNVBN: 

1 A3D 

FE30 

CPI 30H 

1A3F 

FA 1527 

JM QWHAT 

1A42 

FE39 

CPI 39H 

1A44 

FA 1A54 

JM CONTC 

1A47 

CA 1A54 

JZ CONTC 
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1A4A 

FE41 

CPI 41H 

1A4C 

FA 1527 

JM QWHAT 

1A4F 

FE47 

CPI 47H 

IA51 

F2 1527 

JP QWHAT 

1A54 


CONTC: 

1A54 

0630 

SUI 30H 

1A56 

FE0A 

CPI 10 

1A58 

F8 

RM 

1A59 

D607 

SUI 7 

1A5B 

C9 

RET 

i 

1A5C 


5 

CONT: 

1A5C 

CD 100C 

CALL CSTS 

1A5F 

C8 

RZ 

1 A60 

CD 1006 

CALL CI 

1A63 

FE03 

CPI 3H 

1A65 

C0 

RNZ 

1A66 

C3 10B8 

JMP RSTART 

5 

1A69 

00 

? 

ENDE:NOP 

2000 


5 

RAM=\"RAM LOCATION 

2000 


.LOC RAM 


loPSYN .BLKB,DS 


2000 

LEGT:OS 2 

2002 

I0BUFA:DS 1 

2003 

I0BUFB:DS 1 

2004 

IOBUFC:DS 1 

2005 

LSTR0M:DS 1 

2006 

0CSW:DS 1 

2007 

CURRNTsDS 2 

2009 

STKGOS:DS 2 

2006 

VARNXT:DS 2 

200D 

STKINP:DS 2 

200F 

L0PVAR:DS 2 

2011 

LOPINC:DS 2 

2013 

L0PLMT:DS 2 

2015 

L0PLN:DS 2 

2017 

L0PPT:DS 2 

2019 

RANPNT:DS 2 

2016 

TXTUNF:DS 2 

201D 

DS 40 

2045 

STKLMT: DS 2 

2047 

DS 20 0 

210F 

STACK: DS 2 

2111 

VARBGN:DS 55 

2148 

TXTEND:DS 2 

214A 

BUFFER:DS 2 

214C 

BUFENDsDS 2 

214E 

TXTBGN:DS 2 

2150 

DS 600 

23A8 

TXTE:DS 2 

23AA 

BUFA:DS 64 

23EA 

BUFE:DS 1 
.END 


Abb. 3.3-1 
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Al 

1932 

ABS 

14A0 

AHOW 

1097 

ANBAS 

1000 

ANF 

0FEE 

ASCI 

19F4 

ASORRY 

1557 

AWHAT 

1528 

BEGINN 

0FE3 

BUFA 

23AA 

BUFE 

23EA 

BUFEND 

214C 

BUFFER 

214A 

BYE 

18F8 

BYTE 

19B5 

CALL 

18FC 
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3.3.1 I/O-Routinen 

Der Basic-Interpreter muß irgendwie mit 
seiner Umwelt Kontakt aufnehmen können. 
Er soll Meldungen von einer Konsole emp¬ 
fangen können und Antworten auf dieser 
Konsole wieder ausgeben können. Die Kon¬ 
sole kann dabei über eine serielle Daten¬ 
leitung oder über eine parallele Verbindung 
mit dem Computer verbunden sein. Der 
Basic-Interpreter benötigt eine Schnittstelle, 
bei der ein Zeichen zur Konsole gesendet 
wird und eine, bei der ein Zeichen empfan¬ 
gen wird. 

Damit jeder Benutzer seine Zeichenein- 
und Ausgaberoutine selbst schreiben und 
sehr leicht in das Basic einbauen kann, ge¬ 
schieht der Anschluß an diese Routinen 
über Sprungvektoren. Auf Adresse 1006H 
bis lOOCH (H steht für Hexa- oder Sedezi- 
mal) steht eine solche Sprungtabelle. 

Der erste Sprung führt auf ein Unter¬ 
programm mit der Aufgabe, ein Zeichen 
von der Konsole zu holen. Dabei muß die¬ 
ses Unterprogramm solange warten, bis 
ein Zeichen eingegeben wird und dann das 
Zeichen im Register A abliefern. Andere 
Register dürfen nicht verändert werden. 

Der Code des Zeichens muß ASCII sein 
(ISO-7-Bit-Code nach DIN 66003). 


Die Routine ECHO hier auf Adresse 
1009H springt auf ein Unterprogramm, das 
ein Zeichen auf der Konsole ausgeben muß. 
Das Zeichen befindet sich im Register C 
und sollte nach dem Rücksprung (RET) 
auch im Register A stehen. Andere Register 
dürfen nicht verändert werden. 

Nun folgt eine Routine mit der Marke 
CSTS. Der Sprung erfolgt auf Adresse 
lOOCH. Das Unterprogramm hat die Auf¬ 
gabe zu melden, ob ein Zeichen von der 
Konsole eingegeben wurde. Dies ist nötig, 
um zum Beispiel während eines Programm¬ 
laufs festzustellen, ob CTRL-C betätigt 
wurde und der Abbruch des Basic-Pro- 
grammlaufs erfolgen soll, weil z.B. das 
Programm in eine Schleife geraten ist. Das 
Unterprogramm liefert im Register A den 
Wert 0 , falls kein Zeichen eingegeben wur¬ 
de und OFFH, falls ein Zeichen eingegeben 
wurde. Die Flags müssen dabei gesetzt 
sein (spez. das Zero-Flag). 

Die Unterprogrammsprünge wurden 
hier für den ZAPPLE-Monitor angegeben 
[5]. Das Unterprogramm CSTS wird in der 
Routine CONT gebraucht. Diese Routine 
auf der Adresse 1 ASCH im Listing hat die 
Aufgabe, festzustellen, ob CTRL-C betä¬ 
tigt wurde. CTRL-C hat den Code 03. Zu- 
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nächst wird durch den Aufruf von CSTS 
festgestellt, ob überhaupt ein Zeichen ein¬ 
gegeben wurde; falls nicht, erfolgt durch 
den Befehl RZ ein Rücksprung. Sonst 
wird durch den Aufruf CI ein Zeichen von 
der Konsole geholt und verglichen, ob es 
sich um CTRL-C gehandelt hat. Falls 
nicht, so erfolgt ebenfalls ein Rücksprung; 
sonst wird auf RSTART gesprungen, um 
das Basic neu zu starten. Dabei ist 
RSTART nicht mit START zu verwech¬ 
seln: Wird das Basic auf der Marke START 
gestartet, so werden bisherige Programme 
gelöscht. Bei RSTART werden die alten 
Werte übernommen, und ein zuvor einge¬ 
gebenes Basic-Programm bleibt erhalten. 

Ein weiteres I/O-Programm ist OUTC 
(Adresse 16FBH). Es hat im Prinzip die 
gleiche Aufgabe wie ECHO, nämlich ein 
Zeichen auf der Konsole auszugeben. Da¬ 
bei ist die Aufgabenstellung aber zusätz¬ 
lich verfeinert: Ein Zeichen wird nur dann 
ausgegeben, wenn OCSW, eine Variable, 
einen Wert ungleich 0 hat; außerdem wird, 
falls der Wert ODH (Wagenrücklauf) aus¬ 
gegeben werden soll, zusätzlich auch 
OAH (Zeilenvorschub) ausgegeben. 

Die Variable OCSW ist nötig, um später 
beim Laden von Programmen, z.B. durch 
eine Kassette, den Ausdruck zu unterbin¬ 
den, um dadurch Zeit zu sparen. 

CHKIO auf Adresse 1720H dient der 
Eingabe von Zeichen. Dabei wird auf die 
Steuerzeichen CTRL-C (Code 03) und 
CTRL-B (Code 02) geachtet. CTRL-B 
schaltet OCSW jeweils in den komplemen¬ 
tären Zustand, so daß, falls vorher die Aus¬ 
gabe freigegeben war, sie jetzt unterbunden 
wird und umgekehrt. 

Wurde CTRL-C betätigt, so wird das 
Basic durch einen Sprung auf die Adresse 
RSTART erneut gestartet. Ebenfalls wird 
durch die Routine das Paritätsbit mit dem 
Befehl „ANI 7FH” wegmaskiert, so daß 
nur der reine ASCII-Code übrigbleibt. 

Dies ist nötig, um Zeichen überhaupt er¬ 
kennen zu können, insbesondere, wenn 
unterschiedliche Konsolen verwendet wer- 


3.3 Realisierung des Basic-Interpreters 

den, die meist ein Parity-Bit mitsenden, 
dabei entweder die gerade (even), die un¬ 
gerade (odd) Parität oder überhaupt keine 
Parität. 


3.3.2 Einfache zeichenverarbeitende 
Routinen 

Als Konvention für den Interpreter wurde 
festgelegt, daß das Registerpaar DE als 
Zeiger auf den Basic-Text wirkt. Das Un¬ 
terprogramm IGNB auf Adresse 1015H 
hat die Aufgabe, Leerzeichen, die in Basic- 
Programmen Vorkommen, zu ignorieren. 
Dazu wird in der Routine die von DE 
adressierte Speicherzelle mit dem ASCII- 
Wert für das Leerzeichen verglichen (20H). 

Falls der Wert nicht gleich hex 20 ist, 
wird ein Rücksprung ausgeführt; andern¬ 
falls wird der Inhalt des Registerpaars DE 
um eins erhöht, um auf die nächste Spei¬ 
cherzelle zu zeigen. Es folgt dann ein 
Sprung auf die Routine selbst; somit kehrt 
das Unterprogramm erst dann zurück, wenn 
kein Leerzeichen mehr gefunden wird. 

TSTC auf Adresse 1058H stellt eine der 
am häufigsten gebrauchten Routine dar. 

Sie wird verwendet, um ein Zeichen im 
Basic-Textbuffer mit einem bestimmten 
Wert zu vergleichen, und außerdem, um 
Leerzeichen zu ignorieren. Das Zeichen, 
mit dem verglichen werden soll, steht di¬ 
rekt hinter dem Unterprogrammaufruf. 

Als weiterer Parameter wird eine relative 
Sprungadresse mit angegeben, auf die ge¬ 
sprungen wird, falls das Zeichen nicht im 
Basic-Buffer stand. TSTV auf Adresse 
1024H stellt fest, ob sich im Buffer eine 
numerische Variable befindet. 

Eine derartige Variable kann ein Buch¬ 
stabe zwischen A und Z oder das Zeichen 
sein, das für ein eindimensionales Feld 
steht. Es erhält als Parameter den Index. 
Als Ergebnis steht im Registerpaar HL die 
Adresse der Variablen und es wird, falls 
es keine Variable war, das Carry-Flag ge¬ 
setzt. Dazu wird zunächst mit dem Pro- 
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grammteil IGNB nach dem ersten Zeichen 
gesucht, das kein Leerzeichen ist. Durch 
die Subtraktion des Wertes 40H wird fest¬ 
gestellt, ob der Wert dieses Zeichens größer 
oder gleich 40H ist. Damit sind alle Son¬ 
der- und Steuerzeichen erkannt. Falls es 
nicht das Zeichen 40H war, wird auf die 
Marke TVl gesprungen. Falls es das Zei¬ 
chen 40H war, wird ein Programm PARN 
aufgerufen, dessen genaue Funktion später 
noch erklärt wird. Es liefert im Register¬ 
paar HL den Wert, der dem in Klammern 
stehenden Wert eines arithmetischen Aus¬ 
drucks entspricht. Ein solcher Ausdruck 
kann z.B. wie folgt aussehen: 

(A+3xB) oder (4) usw. 

Dabei wird, falls in dieser Klammer wie 
oben die Variable A steht, natürlich wie¬ 
der die Routine TSTV aufgerufen. Sie 
wird also rekursiv verwendet. 

Dieser Wert soll als Index verwendet 
werden. Dazu muß nun die effektive Adres¬ 
se der indizierten Variablen ausgerechnet 
werden. Dazu wird nach einigen Ende-Prü¬ 
fungen durch Subtraktion des zweifachen 
Wertes von der Adresse des Textendes die 
Adresse berechnet. Die Variablen des Fel¬ 
des laufen also von oben nach unten. Die 
Multiplikation mit 2 durch den Befehl 
DAD H ist nötig, weil immer zwei Bytes 
für eine Variable benötigt werden. Der 
Unterprogrammaufruf SIZE bewirkt die 
Feststellung des belegten Speicherbereichs 
durch das Basic-Programm. 

Bei TV 1 ist die Situation einfacher. 

Der gewonnene Wert der Variable, der zwi¬ 
schen 1 und 26 liegt, wird mit 2 multipli¬ 
ziert und auf die Adresse VARBGN addiert. 
Daraus ergibt sich direkt die Speicheradres¬ 
se. 

TSTNUM auf Adresse 106CH muß den 
Wert eines numerischen Wertes im Register 
HL abliefern. Dazu ist eine Dezimal-nach- 
Binär-Umwandlung nötig. Die Zahl wird 
im Zweierkomplement mit 16 bit darge¬ 
stellt. Das Vorzeichen der Zahl wird in 
anderen Programmteilen festgestellt. Die 
Umwandlung in den Binärcode erfolgt 


durch Multiplikation mit dem Wert 10 
und Addition der nachfolgenden Zahl: 

HL:=HL*10+neue Zahl 

Die Multiplikation mit 10 wird durch eine 
Aufteilung der Zahl erreicht: 

10 :=(( 2 * 2 )+ 1)*2 
somit ergibt sich: 

HL:=((HL*2*2)+HL)*2 

Eine Multiplikation mit 2 ist aber einfach 
durch den Befehl DAD H erreichbar. Die 
Addition von HL wird mit einem DAD B 
Befehl erreicht, wobei der ursprüngliche 
HL-Wert, der dazu benötigt wird, zuvor 
in das Register BC gebracht wurde. 

Die Sequenz: MOV B,H 
MOV C,L 
DAD H 
DAD H 
DAD B 
DADH 

bewirkt, daß der Inhalt des Registerpaars 
HL mit 10 multipliziert wird. 

PRTNUM auf Adresse 1608H hat ge¬ 
nau die umgekehrte Aufgabe: Es muß ei¬ 
nen im Registerpaar stehenden Wert aus¬ 
geben. Dabei steht im Register C die An¬ 
zahl der Gesamtstellen. Dies ist für den 
Formatierbefehl wichtig. >1 Z?Z?. 3 . 3 . 2-1 zeigt 
das dazugehörige Flußdiagramm. Als erstes 
wird das Vorzeichen der Zahl überprüft. 

Ist es negativ, so wird der Inhalt des Regi¬ 
sterpaars HL komplementiert und der 
ASCII-Wert des Zeichens in das Regi¬ 
ster B gespeichert, andernfalls der Wert 0. 
Ferner wird, falls der Wert von HL nega¬ 
tiv ist, der Zeichenzähler C um eins ver¬ 
ringert. 

Das Registerpaar DE wird auf den 
Stack gerettet. Ebenfalls BC, das das Vor¬ 
zeichen enthält. DE wird zuvor noch mit 
dem Wert 10 belegt und auf den Stack ge¬ 
legt. Es erfolgt nun eine Division durch 10, 
also dem umgekehrten Algorithmus von 
vorher. 
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Mit der Sequenz „XTHL ...” wird je¬ 
weils der Vorzeichenwert und der Zähler 
zurückgebracht und dann wieder auf den 
Stack gelegt in umgekehrter Folge. Dabei 
wird solange dividiert, bis der Rest zu Null 
geworden ist. Dann wird mit einer umge¬ 
kehrten Sequenz der Stack wieder entleert 
und zuerst das Vorzeichen nach einer Fol¬ 
ge von Blanks ausgegeben, dann folgen die 
Werte. Der zuvor abgelegte Wert 10, der in 
den Daten nicht Vorkommen kann, wird 
als Endezeichen verwendet; danach erfolgt 
der Rücksprung. Das Arbeiten über den 
Stack ist nötig, da bei diesem Divisionsal¬ 
gorithmus die Dezimalwerte von der niede¬ 
ren zur höheren Stelle erscheinen, aber um¬ 
gekehrt ausgegeben werden müssen. 

GETLN auf Adresse 155DH holt 
eine Zeile vom Benutzer und speichert 
diese, beginnend bei der indirekten Adres¬ 
se, die durch BUFFER gegeben ist, ab. 

Dazu wird zunächst das in A mitgege¬ 
bene Zeichen durch den Aufruf CALL 
OUTC ausgegeben. Damit kann zum Bei¬ 
spiel das Meldezeichen „>“ oder „? ” bei 
einem INPUT mit ausgegeben werden. Da¬ 
nach wird ein Unterprogramm mit dem 
Namen DBUFF aufgerufen. Es hat die Auf¬ 
gabe, in das Registerpaar DE die effektive 
Adresse des Textbuffers zu holen. Die 
Adresse steht dabei in zwei aufeinanderfol¬ 
genden Bytes auf der Adresse BUFFER. 

Hinter der Marke GLl wird dann ein 
Zeichen vom Benutzer geholt. Handelte es 
sich um das Zeichen mit dem ASCII-Code 1, 
so wird nach GL3 weitergesprungen. Da¬ 
mit kann ein zuvor falsch eingegebenes 
Zeichen gelöscht werden. Der Pointer DE 
wird dazu um Eins dekrementiert, falls die 
Überprüfung durch CXBUFA nicht ergab, 
daß ein weiteres Löschen nicht mehr mög¬ 
lich war, da es das erste Zeichen im Buffer 
ist. 


Bei allen anderen Zeichen wird der Co¬ 
de ausgegeben. Danach erfolgt ein Vergleich 
auf LF (Code (JAH). Dieses Zeichen wird 
nicht im Buffer abgelegt, ebenfalls nicht 



Abb. 3.3.2-1 Flußdiagramm für PRTNUM 


ein Zeichen mit dem Code 00 (NUL). Mit 
ESC (Code IBH) kann die ganze Zeile ge¬ 
löscht werden. Es wird CRLF ausgegeben 
und das Zeichen ()BH, das den Cursor um 
eine Zeile nach oben positionieren soll. 

In jedem anderen Fall wird das Zeichen 
auf der Adresse DE abgespeichert und DE 
um eins inkrementiert. Durch den Aufruf 
CXBUFE wird auf das Ende des Buffers ab- 
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gefragt. Falls es erreicht ist, wird DE wie¬ 
der dekrementiert. Nach Erhalt des Zei¬ 
chens CR (Code'0DH) erfolgt der Rück¬ 
sprung aus dem Unterprogramm GETLN. 
Bei Verwendung von anderen Bildschirm¬ 
terminals kann durch Ändern der Abfra¬ 
gen eine Anpassung leicht vorgenommen 
werden. Ebenfalls kann der Programmteil 
nach GL3 verbessert werden. Hier wird 
nur das Zeichen BS (Backspace) ausgege¬ 
ben; es wäre aber auch eine Sequenz BS 
SPACE BS möghch, bei der das fälschlich 
eingegebene Zeichen wieder gelöscht wird. 

PRTSTG auf Adresse 15CAH gibt einen 
alphanumerischen Text aus. Dabei wird 
der Text von der durch DE bestimmten 
Adresse an ausgegeben und die Ausgabe 
wird beendet, wenn entweder das auszuge¬ 
bende Zeichen mit dem zuvor im Register 
A als Parameter übergebenen Wert überein¬ 
stimmt, oder ein CR (Code 0DH) ist. Das 
Zeichen wird in diesem Fall nicht mehr 
mit ausgegeben. 

PRTLN auf Adresse 164CH ist das 
erste Programmteil, das nun schon speziel¬ 
ler an Basic erinnert. Es gibt eine Basic- 
Zeile aus und wird für den LIST-Befehl be¬ 
nötigt. DE zeigt dazu auf die Basic-Zeile 
im Speicher. Eine Basic-Zeile ist dabei wie 
folgt auf gebaut: 


lowadr 

highadr 

daten 

CR 

Zeile 

Zeile 




Im Binärcode steht am Anfang die Zeilen¬ 
nummer; sie belegt zwei Bytes. Die Num¬ 
mer kann von 1 bis 32767 reichen. Größe¬ 
re Zahlen sind nicht möglich, da sie nega¬ 
tiv ausgegeben würden und nicht konsistent 
mit den übrigen Interpreterteilen wären. 

Das Ende der Zeile wird durch ein CR an¬ 
gekündigt. 

In PRTLN wird zunächst die Zeilennum¬ 
mer in das Registerpaar HL geholt und mit 
PRTNUM ausgegeben. DE zeigt dabei im¬ 
mer auf die Stelle der Basic-Zeile, die gera¬ 
de angesprochen wird. Es wird dann ein 
Blank (Leerzeichen) ausgegeben, dann (mit 


dem zuvor besprochenen Unterprogramm 
PRTSTG) der Rest der Zeile. Das Register 
A vor dem Eintritt in das Unterprogramm 
mit dem Wert 0 belegt durch die Operation 
„SUB A”, um zu verhindern, daß die Aus¬ 
gabe vorzeitig unterbrochen wird, da 
PRTSTG jedes auszugebende Zeichen mit 
dem Registerinhalt von A vergleicht und 
die Ausgabe beendet, falls eine Überein¬ 
stimmung besteht. Der Code 0 kommt 
aber in Basic-Programmen nicht vor, was 
auch in der Routine GETLN explizit ver¬ 
hindert wurde, und kann somit als 
„dummy”-Wert verwendet werden. 

3.3.3 Analyse von arithmetischen 
Ausdrücken 

Eine der wichtigsten Fähigkeiten von einer 
höheren Programmiersprache, ist die Mög¬ 
lichkeit, Formeln auswerten zu können. 

Da dieser Abschnitt im Prinzip unabhängig 
von der Sprache Basic ist, soll er zuerst be¬ 
handelt werden. 

Beispiele für arithmetische Ausdrücke: 

2+3 

4*5+(2+3*ABS(-5))*2 

Dabei können in den arithmetischen Aus¬ 
drücken auch Funktionen, wie z.B. ABS 
(Absolutbetrag) Vorkommen. Unser Analy¬ 
sator kann nur ganzzahlige Arithmetik be¬ 
treiben. Es wird dabei ein Zahlenbereich 
von +32767 und —32768 überdeckt. Der 
Bereich läßt sich mit 16 bit im Zweierkom¬ 
plement darstellen. Daher sind natürlich 
Funktionen wie SIN oder LOG nicht in 
dem Analysator zu finden. Der Vorteil der 
Ganzzahl-Arithmetik liegt in der hohen 
Ausführungsgeschwindigkeit. 

Bei vielen Programmiersprachen ist die 
Möglichkeit vorhanden, den Zahlenbereich 
der verwendeten Arithmetik einzustellen, 
dies geschieht zum Beispiel mit den Befeh¬ 
len INTEGER, REAL, DOUBLE PRECI- 
SION etc. Unsere Arithmetik entspricht 
dabei der Form INTEGER. 
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In arithmetischen Ausdrücken dürfen 
selbstverständlich auch Variablen verwen¬ 
det werden, so daß ein Ausdruck auch wie 
folgt lauten kann: 

2+A*B 

A und B sind die dabei verwendeten 
Variablen. Als Variable kann auch das ein¬ 
dimensionale Feld verwendet werden, 
das schon bei der Besprechung des Unter¬ 
programms TSTV erklärt wurde. 

Zur Erklärung des Programmablaufs 
werden von nun an auch sogenannte Syn¬ 
taxdiagramme verwendet. Sie wurden erst¬ 
mals bei der Sprachdefinition von Pascal 
eingesetzt und haben sich als sehr anschau¬ 
lich erwiesen. 

Abb. 3.3.3-1 zeigt die Elemente von 
Syntaxdiagrammen. Es werden dabei zwei 
verschiedene Symbole verwendet. Ein 
Name, der in einem Rechteck vorkommt, 
ist ein Beschreibungsaufruf, oder mit dem 
Fachwort ein „Nichtterminalsymbol”. 

Ein Name in einem runden Symbol ist ein 
Endzeichen oder Terminalsymbol. 


Beschreibungsaufruf 



Terminalsymbol. 

Endzeichen 


-- FluOrichtung 

name Name einer Beschreibung 
Abb. 3.3.3-1 Elemente von Syntaxdiagrammen 


Dann gibt es noch einen Richtungsab¬ 
lauf, der die Leserichtung des Diagramms 
angibt, wie bei einem Flußdiagramm. Ein 
Name, der über einem Flußstrich steht, 
definiert eine Beschreibung oder ein Nicht¬ 
terminalsymbol. 

Mit diesen Syntaxdiagrammen läßt sich 
der prinzipielle Ablauf unseres Analysators 
genau definieren. Dabei sei noch bemerkt, 
daß beim Programmieren eine besondere 
Technik, die des rekursiven Aufrufs ver¬ 
wendet wird, eine Technik, die besonders 
zur Realisierung von Syntaxdiagrammen 
geeignet ist. 

Rekursiv bedeutet, daß es zum Beispiel 
einem Unterprogramm erlaubt ist, sich 
selbst aufzurufen. Das Unterprogramm 
muß dann mit einem Abbruchkriterium da¬ 
für sorgen, daß dies nicht endlos geschieht, 
sondern nur, solange es eben zur Lösung 
einer Aufgabe erforderlich ist. Ein gutes 
Beispiel dafür ist die rekursive Definition 
der Fakultät. Für sie gilt FAC=1, falls das 
Argument kleiner oder gleich Null ist und 
FAC(I)=FAC(I-1)*I, falls nicht. Ein Bei¬ 
spiel: FAC(3) soll berechnet werden. Das 
Argument ist nicht Null, somit gilt 
FAC(3)=FAC(2)*3. Nun muß FAC(2) 
berechnet werden; es gilt erneut: 
FAC(2)=FAC(1)*2 somit gesamt FAC(3) 
=FAC(1)*2*3 FAC(l)ist aber FAC(0)*1 
somit FAC(3)=FAC(0)* 1*2*3 und für 
FAC(O) gilt nach dem Abbruchkriterium 
FAC(0)=1 also FAC(3)=1*1*2*3. Dieser 
Ausdruck ergibt ausgewertet 6, also 
FAC(3)=6. 

Nun zurück zur Analyse von arithmeti¬ 
schen Ausdrücken. Abb. 3.3.3-2 zeigt das 
Syntaxdiagramm für EXPR, dem Aufruf 
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des Analysators. EXPR kann sein EXPR2 
gefolgtvon ,,nichts”, oder einem Vergleichs¬ 
operator der von EXPR2 gefolgt wird. Da¬ 
mit wird gesagt, daß ein arithmetischer 
Ausdruck aus einem arithmetischen Unter¬ 
ausdruck besteht, der ggf. von einem Ver¬ 
gleich mit einem weiteren Unterausdruck 
gefolgt werden kann. 

Es ist also expr 2 
oder expr2>expr2 

zulässig. Als Vergleichsoperatoren sind 
GRÖSSER-GLEICH, UNGLEICH, 
GRÖSSER, GLEICH, KLEINER-GLEICH 
und KLEINER zulässig. Über die Auswer¬ 
tung wird in dem Syntaxdiagramm nichts 
weiter ausgesagt. 

EXPR2 wird in Abb. 3.3.3-3 definiert. 
EXPR2 kann sein wahlweise „-H” oder 
” oder „nichts” gefolgt von EXPR3. 

Diese gefolgt von wahlweise „nichts”, oder 
„+” oder gefolgt von EXPR3, die 
wahlweise wieder gefolgt sein kann von 

„nichts”, oder „+” oder .Damit 

kann folgender Aufbau erreicht werden: 

+expr3 

expr3 

expr3+expr3-expr3 
—expr3—expr3 usw. 


Durch den Aufbau der Syntaxdiagramme 
wird hier auch die Vorrangfolge der mathe¬ 
matischen Zeichen festgelegt. Bisher gilt 
„+”, „-” vor Vergleichsoperatoren, da die 
weiter innen liegenden Definitionsteile vor 
den äußeren Aufrufen ausgewertet werden. 
Abb. 3.3,3-4 zeigt das Syntaxdiagramm 
für EXPR3. Hier wird die Verwendung 
von und ,,/” erklärt. Sie ist fast analog 
zu „+” und 

EXPR4 zeigt 3.3.3-5 EXPR4 
kann sein eine Konstante, eine Variable, 
eine Funktion oder „KLAMMER AUF, 
EXPR, KLAMMER ZU.” Der letzte Aus¬ 
druck verwendet wieder EXPR, womit 
die ganze Definition rekursiv geworden ist. 
Nun ist es möglich, alle Kombinationen 
von arithmetischen Ausdrücken zuzulas¬ 
sen, sie sind durch das Syntaxdiagramm 
genau festgelegt. 

Abb. 3.3.3-6 definiert noch die Begriffe 
„Konstante” und „Ziffer”. 3.3.3-7 
zeigt den Aufbau von Variablen. Dabei 
wird hier beim Sonderfall eines Feldes er¬ 
neut EXPR rekursiv verwendet, womit 
auch klar ist, daß geschachtelte Aufrufe 
der Form FELD(FELD(FELD(...))) eben¬ 
falls zulässig sind. Abb. 3.3.3-8 zeigt das 
Diagramm für Buchstaben und Abb. 3.3.3-9 
das Diagramm für Funktionen, das hier 
nicht mehr weiter aufgeschlüsselt wird. 
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Abb. 3.3.3-5 Syntaxdiagramm 
für EXPR4 




Abb. 3.3.3-6 Syntaxdiagramme für KONSTANTE und ZIFFER 

Funktion 


Variable 


Buchstabe 


ihJ)—(T)—I I —(jy 


Abb. 3.3.3-7 Syntaxdiagramm für VARIABLE 


Buchstabe 


4 


Abb. 3.3.3-8 Syntaxdiagramm für BUCHSTABE 


Abb. 3.3.3-9 Syntaxdiagramm für FUNKTION 


RND 


ABS 


SIZE 


PEEK 


INCHAR 


HEX 


IN 


QUOTE 


TOP 


LEN 


CSTS 
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4 + A * ( 



Abb. 3.3.3-10 Aufrufabfolge bei der Analyse 
eines arithmetischen Ausdrucks 


Als Beispiel sei in Abb. 3.3.3-10 die 
Aufrufabfolge bei der Analyse eines arith¬ 
metischen Ausdrucks gezeigt. Es wird da¬ 
bei in dem Syntaxdiagramm solange von 
einem Nichtterminalsymbol zu anderen 
gegangen, bis ein Terminalsymbol erscheint. 
Dieses ist in dem Diagramm eingekreist. 

Das Syntaxdiagramm sagt noch nichts 
über die Realisierung der Arithmetik aus. 
Diese muß wegen des rekursiven Aufrufs 
„reentrable” aufgebaut sein. Das heißt, 
bei einem erneuten Aufruf der gleichen 
Routine darf das Ergebnis des vorherge¬ 
henden Aufrufs nicht verloren gehen. Dies 
wird am einfachsten durch Verwenden des 
Stacks als Zwischenspeicher erreicht. 

In Abb. 3.3-1 zeigt sich der Aufbau. 

Die Routine EXPR auf Adresse 1363H 
beginnt gemäß dem Syntaxdiagramm mit 
dem Aufruf von EXPR2. Als Vereinba¬ 
rung gilt, daß das Registerpaar DE auf 
den zu analysierenden Text zeigt und im 
Registerpaar HL das Ergebnis von arithme¬ 
tischen Ausdrücken steht. 


B - D ) « E 



Nach dem Aufruf von EXPR2 steht 
also in HL das Ergebnis. Nun muß nach 
Syntaxdiagramm untersucht werden, ob 
ein Vergleichsoperator folgt. Dies geschieht 
mit einer Routine, die EXEC genannt 
wird. EXEC sucht in einer Tabelle, deren 
Anfang durch HL bestimmt wird nach ei¬ 
nem String, der mit dem durch DE be¬ 
stimmten String übereinstimmt. Es wird 
dann auf eine hinter dem Suchwort ste¬ 
hende Adresse gesprungen. Falls kein Wort 
gefunden wird, so wird auf eine Ausweich¬ 
adresse gesprungen. 

In unserem Fall wird vor dem Aufruf 
von EXEC das Registerpaar HL gerettet, 
da dort das Ergebnis von EXPR2 steht und 
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dann HL mit der Adresse TABS-l geladen. 
Mit TABS beginnend stehen die Vergleichs¬ 
operatoren mit den dazugehörigen Ausfüh¬ 
rungsadressen. EXEC sucht, beginnend 
bei DE und TABS, nach einem Vergleichs¬ 
operator. Wurde keiner gefunden, so wird 
die Routine XP17 angesprungen. Dort er¬ 
folgt mit dem Befehl POP H das Zurück¬ 
holen des Ergebnisses und die Berechnung 
des arithmetischen Ausdrucks ist fertig. 

Die Routinen XPl 1 bis XP16 bedienen die 
einzelnen Fälle bei einem Vergleichsope¬ 
rator. Als Beispiel „GRÖSSER-GLEICH”: 

Es wird XPl 1 angesprungen; dort erfolgt 
der Aufruf XPIS, einem gemeinsamen Un¬ 
terprogramm, in dem EXPR2 aufgerufen 
wird und mit einer allgemeinen Vergleichs¬ 
routine CKHLDE die Werte des ersten Auf¬ 
rufs von EXPR2 und des jetzigen Aufrufs 
verglichen werden. Das Register A enthält 
den Wert 1, was bei unserer Arithmetik 
einem TRUE entspricht, wenn also der 
Vergleich richtig war. HL besitzt den Wert 
0 bei Rückkehr aus XPl8. In XPl 1 wird 
durch den Befehl „RC” erreicht, daß HL 
den Wert 0 besitzt, wenn „EXPR2a 
KLEINER EXPR2b” ist und sonst wird 
mit „MOV L,A” der Wert 1 in L geladen, 
falls EXPR2a GRÖSSER-GLEICH 
EXPR2b. 

Ähnlich geschieht die Abarbeitung der 
anderen Vergleiche. Bei EXPR2 wird zu¬ 
nächst auf ein Vorzeichen abgeprüft. Bei 
einem negativen Vorzeichen wird EXPR3 
über eine spezielle Routine XP26 aufgeru- 
fen, die erreicht, daß das Ergebnis von 
EXPR3 durch CHGSGN (change sign, 
Vorzeichenwechsel) negiert wird. Im 
Falle keines bzw. eines positiven Vorzei¬ 
chens kann bei XP22, EXPR 3 direkt auf¬ 
gerufen werden. Danach gibt es drei Fälle: 
Folgt ein Symbol, dann wird über 
Xp24 die Addition ausgeführt; folgt ein 

” Symbol, dann wird subtrahiert über 
XP26. Bei keinem der beiden Symbole 
wird auf XP42 gesprungen und der RET- 
Befehl ausgeführt. 


Ähnlich erfolgt die Behandlung von 
EXPR3; nur entfällt die Vorzeichenabfra¬ 
ge und Multiplikation und Divisionsaufrufe 
erfolgen. Die Ausführung von EXPR4 ge¬ 
schieht wieder mit Hilfe des Programm¬ 
teils EXEC. Es wird diesmal TAB4 verwen¬ 
det, die eine Liste aller verfügbaren Funk¬ 
tionsaufrufe enthält. Wurde eine dieser 
Funktionen gefunden, so wird zu dem da¬ 
zugehörigen Programmteil gesprungen, 
sonst erfolgt die Ausführung von XP40. 
Dort wird als erstes untersucht, ob es eine 
Variable ist. Falls nicht, so wird mit XP41 
auf einen numerischen Wert geprüft, war 
es dies ebenfalls nicht, so wird auf PARN 
verzweigt. Dort erfolgt die Prüfung von 
„( EXPR )”. Fehlt die schließende Klam¬ 
mer, so wird QWHAT aufgerufen, um eine 
Fehlermeldung auszugeben. QHOW wird 
mehrfach im Fehlerfall aufgerufen, falls 
ein Überlauf statt fand. 

Die einzelnen Funktionen 
RND 

Die Funktion RND wird auf Adresse 
1473H behandelt. RND besitzt einen Pa¬ 
rameter, der angibt, in welchem Bereich 
die Zufallszahl liegen soll. Die genaue 
Form lautet: RND(EXPR). Der Wert der 
Zufallszahl liegt zwischen 1 und EXPR. 
Dazu wird die Routine PARN aufgerufen, 
die genau der Forderung (EXPR) genügt. 
Im Registerpaar HL steht dann nach dem 
Aufruf der Wert von EXPR. Es wird zu¬ 
nächst das Vorzeichen geprüft: Wurde eine 
negative Zahl eingegeben, so wird QHOW 
angesprungen, ebenso, wenn der gesamte 
Ausdruck Null war. Als Zufallszahl wird 
der Inhalt des Programms selbst genom¬ 
men; dazu steht der Pointer RANPNT zur 
Verfügung. Durch eine Division wird der 
Zufallswert in den richtigen Bereich ge¬ 
bracht und in HL übergeben. 

ABS 

ABS bildet den Absolutbetrag einer Zahl. 
Es wird mit dem Aufruf ,,CALL PARN” 
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ein Wert geholt. Dann wird das Vorzeichen 
geprüft und, falls die Zahl negativ ist, wird 
sie komplementiert. Dies geschieht auto¬ 
matisch in dem Unterprogramm CHKSGN. 

SIZE 

SIZE ist eine sogenannte Pseudovariable, 
da sie keinen Parameter besitzt und wie 
eine Variable verwendet werden kann, 
allerdings nur lesend. Beim Aufruf von 
SIZE wird der für Basic-Programme freie 
Speicherplatz berechnet und in HL überge¬ 
ben. 

PEEK 

PEEK erhält als Parameter eine Adresse. 
Von dieser Adresse wird ein Byte geholt 
und als Wert übergeben. Dieser Befehl kann 
verwendet werden, um z.B. Daten aus einer 
Zelle zu holen, die durch ein Maschinen¬ 
programm belegt wurde. Mit dem Aufruf 
PARN wird die Adresse geholt, die dadurch 
auch beliebig berechnet werden kann, der 
Inhalt davon nach Register L transportiert 
und H gelöscht. 

INCHAR 

INCHAR wirkt wieder wie eine Variable. 
Erfolgt der Aufruf, so wird genau ein Zei¬ 
chen von der Konsole über die Routine 
CHKIO geholt. Dieses Zeichen wird aber 
nicht wieder ausgegeben, sondern gelangt 
als ASCII-Wert in das Register L, wobei 
H mit 0 belegt wird. 

Damit ist zum Beispiel ein Ausdruck wie 
folgt möglich: 

A = INCHAR+128 

HEX 

HEX erlaubt die Eingabe von sedezimalen 
Zahlen, um das maschinennahe Arbeiten 
zu erleichtern. Die genaue Form lautet: 

HEX(Hexausdruck). 

Hexausdruck ist dabei die sedezimale Zahl. 
Sie wird in dem Unterprogramm HEX 
durch CNVBN in einer Schleife HNXTH 


in eine Binärzahl umgewandelt. Als Ergeb¬ 
nis steht sie dann im Registerpaar HL. 
Beispiel: 

HEX(3FA). 


IN 

IN hat die Aufgabe, einen Wert von einem 
8080-Port zu holen. Dazu wird mit dem 
Aufruf CALL PARN die Portadresse geholt. 
In einem externen RAM-Speicher wird 
nun ein selbst modifiziertes Programm vor¬ 
bereitet, das die Sequenz ,,DB xx C9” er¬ 
hält, wobei XX für den Kanal desJPorts 
steht. Dies ist nötig, da dem 8080 keine 
Möglichkeit gegeben ist I/O-Ports indirekt 
anzusprechen, sondern nur mit festen 
Adressen, die im Adreßteil des Maschinen¬ 
befehls angegeben sind. Der Wert des 
Ports steht im Register L, H ist mit 0 be¬ 
setzt. 


QUOTE 

Mit QUOTE kann ein ASCII-Zeichen in 
die dezimale Darstellung umgewandelt 
werden. Das Zeichen, das im Programm 
steht, wird dazu einfach in das Register 
L geladen und H mit 0 belegt. Es folgt 
dann noch eine Prüfung auf das abschlie¬ 
ßende Anführungszeichen. Ein Beispiel da¬ 
für: 

‘A’ liefert den Wert 65 

‘B’-2 liefert den Wert 64. 

Hier ist ausnahmsweise der Name des Pro¬ 
grammteils nicht als Wort im Basic-Pro- 
gramm verwendet, sondern nur ein einfa¬ 
ches Anführungszeichen. 

TOP 

TOP ist wieder eine Pseudovariable. Das 
Ergebnis des Aufrufs ist der erste freie 
Platz hinter dem eingegebenen Basic-Pro- 
gramm. Diese Stelle wird durch TXTUNF 
verwaltet, worauf später noch genauer ein¬ 
gegangen wird. 
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LENGTH 

LEN ist ebenfalls eine Pseudovariable. Sie 
liefert die Länge des Strings als Ergebnis, 
der zuletzt mit 1$ eingegeben wurde. Die 
Länge steht in der Zelle LEGT. Der Aufruf 
von LENGTH erfolgt durch den Namen 
LEN. 

CSTAT 

Mit der Pseudovariablen CSTAT kann ab¬ 
gefragt werden, ob von der Konsole ein 
Zeichen eingegeben wurde; falls ja, so be¬ 
sitzt das Registerpaar HL den Wert 0. 


3.3.4 Befehlsabarbeitung 

Abb. 3.3.4-1 zeigt den groben Ablauf 
der Befehlsverarbeitung. Nach dem Aufruf 
von Start werden zunächst diverse Variable 
initialisiert. Es wird dabei der Basic-Pro- 
grammspeicher gelöscht, indem der Pro¬ 
grammzeiger zurückgesetzt wird. TXTUNF 
ist der Zeiger für das Textende des Basic- 
Programms. Er wird auf TXTBGN, den 
Textanfang, gesetzt. Die maximale Größe 
eines Programms wird durch den Inhalt 
der Variablen TXTEND bestimmt. Sie 
wird auf TXTE gelegt. Diese Variable kann 
vom Basic aus mit dem Befehl END verän¬ 
dert werden, um dynamisch größere Pro¬ 
gramme zuzulassen. BUFFER zeigt auf 
den Textzwischenspeicher, der bei der Ein¬ 
gabe einer Zeile verwendet wird. BUFEND 
gibt dementsprechend das Ende dieses Zwi¬ 
schenspeichers an. 

Als nächstes folgt der Programmteil 
RSTART. Dorthin kann auch von einem 
Monitor aus gesprungen werden. Das vor¬ 
handene Programm bleibt erhalten. Es ist 
aber nicht möglich, auf dieses Programm zu 
springen, ohne daß zuvor mindestens ein¬ 
mal START angesprungen wurde, da sonst 
die Variablen Undefiniert sind und dies zu 
einem nichtvorhersehbaren Verhalten des 
Interpreters führt. 

Es wird, nachdem im Programmteil 
START die Überschrift und Kennung aus- 



Abb. 3.3.4-1 Grober Ablauf der Befehls¬ 
verarbeitung 


gegeben wurde, im Programmteil RSTART 
die Meldung „READY” ausgegeben. 

CURRNT bezeichnet die aktuelle Zeile, 
bei der die Programmausführung steht. Die¬ 
ser Pointer wird auf den Wert ,,ST2+1” ge¬ 
setzt und der Pointer zeigt dadurch auf 0. 
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Im folgenden werden Pointer für 
GOSUB und FOR-Befehle initialisiert und 
bei ST3 wird die Meldung ausgegeben. 
Mit GETLN wird eine Zeile vom Benutzer 
in den Textspeicher geholt. Mit dem Auf¬ 
ruf TSTNUM wird überprüft, ob an erster 
Stelle ein numerischer Wert steht. Falls 
nein, wird der Programmteil DIRECT aus¬ 
geführt. Dort wird, beginnend bei TABl, 
nach einem gültigen Kommando gesucht. 
Falls eines gefunden wurde, so wird das 
entsprechende Programm ausgeführt; falls 
nicht, so wird DEFLT angesprungen. Dort 
wird geprüft, ob es sich um eine arithme¬ 
tische Zuweisung handelt, ein CR einge¬ 
geben wurde, oder ob es sich um keinen 
definierten Befehl handelt. Wurde am An¬ 
fang eine Zeilennummer eingegeben, so 
muß diese Zeile an der richtigen Stelle im 
Basic-Puffer eingebaut werden. Falls die 
Zeile schon existierte, was durch den Auf¬ 
ruf von FNDLN bewirkt wird, so muß die 
alte Zeile gelöscht werden. Dazu wird mit 
FNDNXT die nachfolgende Zeile gesucht 
und dann mit dem Unterprogramm MVUP 
gelöscht. Nun wird überprüft, ob die Länge 
der neuen Zeile 3 ist. Falls ja, so besteht 
diese nur aus einer Zeilennummer, die 
schon binär codiert genau zwei Bytes be¬ 
legt und einem CR. Die Zeile wird ge¬ 
löscht. 


Falls die Zeile länger ist, so muß sie ein¬ 
gefügt werden. Dies geschieht durch 
MVDOWN. Dabei wird der Platz für die 
neue Zeile gewonnen und anschließend 
wird mit MVUP die neue Zeile vom Text¬ 
zwischenspeicher in das Programm einko¬ 
piert. Danach wird wieder auf den Zweig 
ST3 gesprungen und mit „>” angekün¬ 
digt, daß die Zeile übernommen wurde 
und eine neue Eingabe erwartet wird. 

Abb. 3.3.4-2 zeigt noch einmal die ge¬ 
nauen Verhältnisse des Textspeichers und 
der einzelnen Pointer. 


Einzelne Befehle 

Da wäre zunächst die Zuweisung. Sie wur¬ 
de schon vorher im Programmteil DEFLT 
angeschnitten. Falls kein CR auf der aktu¬ 
ellen Textposition (DE) steht, wird zur 
LET-Routine verzweigt, in die auch direkt 
durch Voranstellen des Basic-Befehls LET 
gelangt werden kann. Dort wird die Rou¬ 
tine SETVAL aufgerufen, die die Zuwei¬ 
sung behandelt. Anschließend wird auf 
ein Komma abgefragt und, falls dieses 
vorhanden, erneut LET angesprungen. 

Das Syntaxdiagramm ist in Abb. 3.3.4-3 
dargestellt. SETVAL prüft, ob eine Varia- 


NR 

BASIC ZEILE CR 

NR 

BASIC ZEILE CR 


1 

1 1 



TXTBGN (CURRNT) (TXTUNF) 


TEXTZWISCHENSPEICHER 


TXTE BUFA BUFE 

(TXTEND) (BUFFER) (BUFEND) 


Abb. 3.3.4-2 Pointer im Textspeicher 
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ble am Anfang, dann nachfolgend ein 
Gleichheitszeichen und schließlich ein 
arithmetischer Ausdruck steht. Der Wert 
dieses Ausdrucks wird dann der angege¬ 
benen Variablen zugewiesen. 

Nach der Zuweisungssequenz wird zum 
Programmteil FINI gesprungen. Dort wird 
FIN aufgerufen und, falls das Programm 
zurückkehrt, zu der Fehlermeldung 
QWHAT gesprungen. 3.3.4-4 verdeut¬ 

licht die Aufgabe von FINI. Eine Basic- 
Programmzeile besteht aus einer Zeilen¬ 
nummer sowie einem oder mehreren Be¬ 
fehlen, die durch je einen Strichpunkt zu 
trennen sind. Das Zeilenende ist durch ein 
Carriage Return (CR, Code ODH) gekenn¬ 
zeichnet. In FIN wird überprüft, ob ein 
Strichpunkt folgt. Falls ja, so wird der 
Programmteil RUNSML ausgeführt, der 
die Aufgabe hat, die Ausführung des Pro¬ 
gramms in der gleichen Zeile durchzufüh¬ 
ren. Folgte aber ein CR, so erfolgt der 
Sprung auf RUNNXL, wo die nächste Zei¬ 
le ausgeführt wird, falls eine solche vor¬ 


handen ist. Im Fehlerfall erfolgt ein Rück¬ 
sprung. 

Abb. 3.3.4-5 zeigt eine Gesamtübersicht 
über alle Befehle, die nun nach und nach 
besprochen werden sollen. Dabei wurden 
die Funktionen und Vergleichsbefehle 
schon im vorhergehenden Kapitel abgehan¬ 
delt. 

Zuvor noch einige Beispiele zur Anweisung 
LET: Folgendes Programm ist syntaktisch 
möglich: 

100 LETA=1 
110 B=A+3*(A-1) 

120 C=A=B+1 
130 D=(1=A)+(B=7) 

140 @(A)=@(A)+1;A=2 

A erhält den Wert 1, B den Wert 1, C wird 
4er Wert des Vergleichs A=B+1 zugewie¬ 
sen. Dieser Ausdruck ist falsch, also erhält 
C den Wert 0. D erhält den Wert 1, da der 
Ausdruck 1=A wahr ist und den Wert 1 
erhält, B=7 ist falsch und erhält den Wert 
0. 1+0 ergibt 1 somit ist D=l. 
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Direkt-Befehle: 

LIST 

Listen eines Basic-Programms 

RUN 

Ausführen eines Basic-Pro¬ 
gramms 

NEW 

Löschen des Basic-Programms 

BYE 

Beenden des Basics 

END 

Speicherplatz neu besetzen 

Programmierbare Befehle: 

NEXT 

Schleifenende 

LET 

Anfang einer arithmetischen 
Zuweisung 

IF 

Bedingung 

GOTO 

Unbedingter Sprung 

GOSUP 

Unterprogrammsprung 

RETURN 

Unterprogrammrück¬ 

sprung 

REM 

Kommentar 

FOR 

Schleifenanfang 

INPUT 

Eingabe 

PRINT 

Ausgabe 

STOP 

Beenden des Ablaufs 

CALL 

Unterprogrammaufruf - Ma¬ 
schinenprogramm 

OUTCHAR Einzelzeichenausgabe 

OUT 

Ausgabe an Port 

0$ 

Ausgabe eines Textes 

1$ 

Eingabe eines Textes 

POKE 

Direkter Speicherzugriff 


TAB 

Tabulator ausgeben 

BYTE 

Sedezimalausgabe in Byteform 

WORD 

Sedezimalausgabe in Wortform 

Funktionen: 

RND 

Zufallswert 

ABS 

Absolutbetrag 

SIZE 

Speicherfreiraum 

PEEK 

Direktspeicherzugriff 

INCHAR 

Einzelzeicheneingabe 

HEX 

Umwandlung vom Sedezimal¬ 
system 

IN 

Porteingabe 


Einzelzeichenumwandlung 

TOP 

Erste freie Speicherzelle 

LEN 

Länge eines Strings 

CSTS 

Konsolstatus 

Divers: 

TO 

In Schleifenanweisung 

STEP 

In Schleifenanweisung 

V ergleichsbefehle; 

>= 

# 

> 

<= 

< 


Abb. 3.3.4-5 Gesamtübersicht über alle Befehle 


In Zeile 140 wird das eindimensionale 
Feld verwendet. Dabei wird der Inhalt der 
ersten Elemente dieses Feldes um 1 er¬ 
höht und dem Feld wieder zugewiesen. 
Außerdem wird anschließend der Varia¬ 
blen A der Wert 2 zugewiesen. 



Zahl 


Abb. 3.3.4-6 Syntaxdiagramm von LIST 


LIST 

Es ist also schon möglich, ein Programm 
einzugeben. Das Programm soll aber auch 
zur Kontrolle wieder ausgegeben werden 
können. Dazu wird der Befehl LIST ver¬ 
wendet 3.3.4-6 zeigt das dazugehö¬ 

rige Syntaxdiagramm. LIST kann demnach 
allein stehen oder von einer Zahl gefolgt 
werden. Ob eine Zahl vorhanden ist, wird 
mit dem Aufruf TSTNUM geprüft. An¬ 
schließend folgt ein Test, ob danach ein 
CR steht. Falls nein, wird eine Fehlermel¬ 
dung ausgegeben. Vor dem Aufruf von 
FNDLN ist als Zeilennummer 0 vorhanden. 
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wenn keine zusätzliche Zahl eingegeben 
wurde, sonst diese Zahl. FNDLN sucht 
nach dieser Zeile. Wurde keine gefunden, 
so wird ein Carry übergeben und nach 
RSTART verzweigt. Sonst wird mit 
PRTLN die Zeile ausgegeben und dann 
durch den Aufruf CONT überprüft, ob ein 
CTRL-C auf der Konsole eingegeben wurde 
und falls ja, wird in dem Unterprogramm 
auf RSTART gesprungen. Falls nicht, 
wird mit FNDLP die nächste Zeile gesucht 
und dies geschieht dann solange, bis keine 
Zeile mehr da ist, die ausgegeben werden 
muß. 

Der direkte Sprung aus dem Unterpro¬ 
gramm CONT ist möglich, da in dem an¬ 
gesprungenen Programm RSTART eine 
Korrektur des Stackpointers vorgenom¬ 
men wird. Wäre dies nicht der Fall, so wür¬ 
de der Stack immer weiter nach unten 
laufen, bis er mit Variablengebieten zu¬ 
sammenstößt. 

Beispiele: 

LISTcr gibt das gesamte Basic- 

Programm aus 

LIST 110 gibt das Basic-Programm 

beginnend mit Zeile 110 
aus 

LISTcr CTRL-C gibt das Programm so¬ 
lange aus, bis CTRL-C 
(Code 03) eingegeben 
wurde. 

RUN 

Der wohl wichtigste Programmteil dient 
zum Starten des Basic-Programms. Dazu 
wird erst geprüft, ob RUN mit einem CR 
abgeschlossen wurde, und danach das Re¬ 
gisterpaar DE mit der Adresse TXTBGN 
belegt. Dadurch wird erreicht, daß die Pro¬ 
grammausführung mit der ersten Zeile be¬ 
ginnt. Durch den Aufruf FNDLP wird die 
Suche nach der ersten Zeile veranlaßt. HL 
wurde dazu zuvor mit 0 belegt. Falls nach 
dem Aufruf ein Carry vorhanden ist, gibt 
es keine Zeile und RSTART wird ausge¬ 
führt. 


Sonst wird CURRNT mit der aktuellen 
Zeile belegt und RUNSML auf gerufen. In 
RUNSML erfolgt mit dem Aufruf von 
CONT als erstes eine Überprüfung auf 
CTRL-C. Falls dieses von der Konsole ein¬ 
gegeben wurde, so wird RSTART ange¬ 
sprungen und damit die Ausführung been¬ 
det. Sonst wird mit Hilfe von EXEC nach 
einem zulässigen Basic-Befehl, beginnend 
bei Tabelle TAB2,gesuchtund ein entspre¬ 
chendes Programm von dort aus gestartet. 

NEW 

NEW löscht ein vorhandenes Basic-Pro¬ 
gramm. Es wird dabei einfach TXTBGN 
in die Variable TXTUNF gespeichert. An¬ 
schließend wird STOP ausgeführt und da¬ 
bei auf RSTART gesprungen. 

BYE 

BYE beendet die Ausführung des Basic- 
Interpreters durch einen RST-7-Befehl. 

Hier kann auch leicht ein anderer Befehl 
verwendet werden, der zum Beispiel direkt 
in einen Monitor springt. RST 7 wurde ge¬ 
wählt, da bei dem hier verwendeten Moni¬ 
tor mit RST 7 ein „Break” ausgeführt wird. 

END 

END wird normalerweise dazu verwendet, 
um das Programmende zu kennzeichnen. 
Dies wurde hier aber nicht getan, da das 
Ende eines Basic-Programms automatisch 
durch den letzten Befehl definiert ist. 
Damit steht der Befehl END wieder frei. 
END wird hier deshalb verwendet, um dy¬ 
namisch den für ein Basic-Programm zur 
Verfügung stehenden Platz zu vergrößern. 
Dies wirkt dann genauso, als ob die im 
Listing stehende Anweisung DS 600 hinter 
TXTBGN: vergrößert würde. 

Um dies zu erreichen, erhält END einen 
Parameter, der im Programm durch den 
Befehl „CALL EXPR“ ins HL-Register ge¬ 
bracht wird. Danach folgt eine Bereichs¬ 
überprüfung, um zu verhindern, daß der 
END-Befehl zu einem Zusammensturz 
führt, wenn zum Beispiel das neue Ende 
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vor das Programm gelegt wird, oder auf 
einen nicht vorhandenen Speicherplatz. 

In diesem Fall wird die Fehlermeldung 
„SORRY” ausgegeben, die immer wenn 
sie auftritt bedeutet, daß eine Forderung 
an den Interpreter syntaktisch möglich wä¬ 
re, aber unter den momentanen Voraus¬ 
setzungen nicht erfüllbar ist. War der Wert 
zulässig, werden BUFEND, BUFFER und 
TXTEND neu belegt. Für den Textbuffer 
sind nun 132 Zeichen zugelassen, so daß 
längere Eingabezeilen angegeben werden 
können. Anschließend wird auf RSTART 
gesprungen. 


GOTO 

Bei der Ausführung dieses Befehls wird mit 
dem Aufruf CALL EXPR ein Parameter 
geholt, der die Zeilennummer angibt, auf 
die gesprungen werden soll. Die Besonder¬ 
heit liegt hier darin, daß auch arithmetische 
Ausdrücke als Parameter zulässig sind. Da¬ 
mit können berechnete Sprünge durchge¬ 
führt werden und da in arithmetischen 
Ausdrücken auch Vergleiche zulässig sind, 
können auch bedingte Sprünge und Mehr¬ 
fachverzweigungen realisiert werden. 

Der in HL stehende Wert der gesuchten 
Zeilennummer wird an die Routine FNDLN 
gegeben, die die Zeile sucht. Wird sie nicht 
gefunden, so wird AHOW aufgerufen und 
eine Fehlermeldung ausgegeben. 

Anschließend wird RUNTSL aufgerufen, 
wenn kein Fehler vorlag und dort die Pro¬ 
grammausführung bei der neuen Zeile be¬ 
gonnen. Nach dem Aufruf von EXPR wird 
das Registerpaar DE gerettet, um im Feh¬ 
lerfall für AHOW die Position des Fehlers 
festzuhalten. Mit POP PSW wird, falls kein 
Fehler auftrat, DE einfach weggeworfen. 


GOSUB 

GOSUB bewirkt einen Unterprogrammauf¬ 
ruf. Es werden zuerst alle Parameter eines 
eventuellen Schleifenaufrufs gerettet. Dann 


wird die Sprungadresse geholt (wie bei 
GOTO ebenfalls ein arithmetischer Aus¬ 
druck) und mit PUSH DE der Textzeiger 
gerettet, so daß danach wieder an der alten 
Stelle das Basic-Programm fortgesetzt wer¬ 
den kann, wenn ein RETURN-Befehl er¬ 
folgte. 

Beispiele für GOTO und GOSUB 
100 GOTO 120 

120 GOTO (A=1)*100+(A=2)*130 
130 GOSUB 500 


In Zeile 100 wird nach 120 gesprungen 
und in Zeile 120 wieder nach Zeile 100, 
falls A=1 ist, oder auf Zeile 130, falls A=2 
ist. Ist A weder 1 noch 2, erfolgt eine Feh¬ 
lermeldung. In 130 wird ein Unterpro¬ 
grammaufruf auf Zeile 500 durchgeführt. 


RETURN 

Um den GOSUB-Befehl zu vervollständi¬ 
gen, wird noch der RETURN-Befehl benö¬ 
tigt. Es werden dort in umgekehrter Rei¬ 
henfolge alle Programmparameter vom 
Stack zurückgeholt. Durch den Aufruf 
FINI wird erreicht, daß in der alten Zeile 
genau hinter dem GOSUB-Befehl mit der 
Ausführung des Basic-Programms fortge¬ 
fahren wird. 


IF 

Die Ausführung von IF beginnt bei der 
Marke IFF. Dort wird zunächst durch den 
Aufruf EXPR ein arithmetischer Ausdruck 
geholt; natürlich normalerweise aus einem 
Vergleich bestehend. Ist der Ausdruck 
nicht 0, so wird in der gleichen Zeile fort¬ 
gefahren. Dies geschieht durch den Aufruf 
von RUNSML. Ist der Ausdruck gleich 0, 
der Vergleich also nicht erfüllt, dann wird 
mit FNDSKP der Rest der Zeile übersprun¬ 
gen und, falls eine neue Zeile da ist, diese 
mit RUNTSL ausgeführt, sonst RSTART. 
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Beispiel: 

100 IF A=1 GOTO 300 
110 IF B<=(C*D) A=2 
120 B=100 

300 C=2, D=3;A=200 

Falls A am Anfang den Wert 1 besaß, wird 
auf 300 gesprungen und dort C mit 2, D 
mit 3 und A mit 200 belegt. War A nichtl, 
so wird A mit 2 belegt, falls ,,B Kleiner 
gleich C mal D” war und dann in jedem 
Fall B mit 100 belegt und schließlich eben¬ 
falls Zeile 300 ausgeführt. 

REM 

REM wirkt wie eine IF-Anweisung, die 
immer das Ergebnis „falsch”, also den 
Wert 0 ergibt. Damit ist es möglich, Kom¬ 
mentare in das Programm aufzunehmen. 

HL wird dazu mit 0 belegt und dann auf 
IFFR gesprungen. Durch dieses etwas ei¬ 
gentümliche Verfahren wird Programmspei¬ 
cherplatz gespart. 

FOR 

Abb. 3.3.4-7 zeigt das Syntaxdiagramm 
zur FOR-Schleife. Mit PUSHA werden zu¬ 
nächst die alten Parameter auf den Stack 
gerettet. Dadurch ist es möglich, FOR- 
Schleifen zu schachteln. Anschließend 
wird durch den Aufruf von SETVAL die 
Zuweisung durchgeführt. Die Adresse der 
Zuweisungsvariablen wird in LOPVAR ge¬ 
speichert. 

Mit Hilfe des EXEC-Moduls wird ge¬ 
testet, ob nun das Wort TO folgt. Falls 
nein, wird die Fehlermeldung WHAT aus¬ 
gegeben, sonst wird FRl angesprungen. 
Dort wird das Ende der Schleife durch den 
Aufruf von EXPR geholt und in LOPLMT 
abgespeichert - diesmal der Wert selbst. 


nicht eine Adresse. Wird bei der FOR- 
NEXT-Schleife der Begriff STEP weggelas¬ 
sen, so wird automatisch eine Schrittweite 
von 1 angenommen. Dies wird hier durch 
den Aufrufvon EXEC (beginnend bei 
TAB6) erreicht. Ist STEP nicht vorhanden, 
so wird nach FR3 gesprungen, sonst auf 
FR2. Bei FR3 wird HL mit 1 belegt, auf 
FR2 wird mit EXPR ein Wert geholt. An¬ 
schließend wird auf FR4 der Wert in 
LOPINC gespeichert. Die aktuelle Zeilen¬ 
nummer wird in LOPLN gespeichert und 
der Textpointer in LOPPT. 

Als nächstes wird untersucht, ob in 
einer alten FOR-Schleife, die noch auf dem 
Stack ist, die gleiche Schleifenvariable ver¬ 
wendet wurde. Falls ja, so werden alle Pa¬ 
rameter dieser Schleife aus dem Stack mit 
dem MVDOWN-Programm entfernt. Ein 
Parameterblock hat dabei eine Länge von 
10. Bei FR8 wird die Ausführung fortge¬ 
setzt. 

NEXT 

Es wird zunächst geprüft, ob NEXT von 
einer Variablen gefolgt wird. Falls nein, 
so wird QWHAT aufgerufen und eine Feh¬ 
lermeldung ausgegeben; sonst wird die 
Adresse der Variablen in VARNXT zwi¬ 
schengespeichert. Es wird nun LOPVAR 
geladen und geprüft, ob der Wert 0 ist. 

Falls ja, so wurde keine FOR-Anweisung 
gegeben, und es wird ein Fehler ausgege¬ 
ben. 

Es werden dann die beiden Adressen 
verglichen. Falls sie übereinstimmen, wird 
auf NX 3 gesprungen, sonst wird mit POPA 
ein Schleifenblock vom Stack entfernt und 
erneut untersucht. Bei NX3 wird die Schlei¬ 
fenvariable um LOPINC erhöht. Dann wird 
überprüft, ob LOPLMT schon erreicht wur- 



Abb. 3.3.4-7 Syntaxdiagramm der FOR- 
Anweisung 
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de. Falls ja, wird mit POPA der Stack ge¬ 
leert und die Programmausführung mit der 
folgenden Anweisung fortgesetzt. Falls die 
Grenze nicht erreicht wurde, so wird die 
Zeilennummer der FOR-Schleife und der 
Textpointer nach der FOR-Anweisung ge¬ 
laden und an dieser Stelle mit der Pro¬ 
gramm au sführung fortgefahren. 

Beispiele: 

100 FOR 1=1 TO 10 


120 NEXTI 

130 FOR N=10 TO 2 STEP -2 
140 FOR J=1 TO 5 STEPS 
150 NEXT J 
160 NEXTN 

Die zwischen 100 und 120 liegenden An¬ 
weisungen werden 10 mal durchlaufen. 

Bei 130 beginnt eine verschachtelte Schlei¬ 
fe. Die äußere Schleife wird, beginnend mit 
10, um jeweils zwei mit der Schleifenva¬ 
riable N auf 2 zurückgezählt; die innere 
Schleife zählt aufwärts in dreier Schritten 
von 1 ab, bis 5 überschritten wird. 

INPUT 

Mit dieser Anweisung ist es möglich, nu¬ 
merische Variable einzugeben. A bb. 3.3.4-8 


zeigt das dazugehörige Syntaxdiagramm. Bei 
IPl wird zuerst geprüft, ob ein String ange¬ 
geben wurde. Dies geschieht durch QTSTG, 
der den String auch gleich ausgibt. Falls es 
ein String war, so werden die nach dem 
Aufruf stehenden drei Bytes übersprungen. 
Sonst wird IP2 angesprungen. 

Falls ein String vorkam, wird geprüft, 
ob nachfolgend eine Variable steht; falls 
ja, wird auf IP3 gesprungen, falls nein, wird 
bei IP4 geprüft, ob ein Komma folgt und 
danach wieder auf IPl gesprungen, sonst 
INPUT beendet. Bei IP2 wird der Variablen¬ 
name als Text ausgegeben, so daß sofort 
erkennbar ist, welche Variable eingegeben 
werden muß. War ein String vorhanden, so 
geschieht dies nicht, da gleich auf IP3 ge¬ 
sprungen wird. Dort wird nun zunächst ge¬ 
sichert, daß im Fehlerfall die Routine 
INPERR angesprungen wird. Dies geschieht 
durch die Belegung von CURRNT mit einer 
Adresse IPl, die auf einen negativen Wert 
(D5H) zeigt. Dieser Wert wird in der 
ERROR-Routine abgeprüft. 

Lag kein Fehler vor, so wird der Wert, 
der durch EXPR vom Benutzer eingegeben 
wurde, in die Variable abgespeichert. Die 
Besonderheit liegt darin, daß hier bei 
INPUT zur Laufzeit auch die Eingabe von 
arithmetischen Ausdrücken möglich ist. 

Die Benutzereingabe wurde durch GETLN 
in BUFFER abgelegt. Bei IP4 wird geprüft, 
ob weitere Eingaben erfolgen sollen. 



Abb. 3.3.4-8 Syntaxdiagramm der INPUT-Anweisung 
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3.3 Realisierung des Basic-Interpreters 


Beispiele: 

100 INPUT A 

110 INPUT “TEXT”B,C 

120 INPUT “TEXT”,D 

Bei der Ausführung erscheinen nacheinan¬ 
der folgende Ausgaben: 

A: 

TEXT: 

C: 

TEXTD: 

Nach jedem Doppelpunkt wird eine Ein¬ 
gabe erwartet. 


PRINT 

Abb. 3.3.4-9 zeigt das Syntaxdiagramm 
von PRINT. Zunächst wird das Register 
C mit 6 geladen. Der Inhalt dieses Registers 
gibt die Länge an, mit der numerische Wer¬ 
te ausgegeben werden. Dabei werden Zah¬ 
len zu dieser Länge mit Leerräumen aufge¬ 
füllt. Somit ist eine bescheidene Art von 
formatierter Ausgabe möglich, da sich das 
Register C verändern läßt. Dies geschieht 
durch das Zeichen ,,#”, das von einem 
arithmetischen Ausdruck gefolgt wird. Zu¬ 
vor wird jedoch im Programmteil PRINT 


abgefragt, ob die Anweisung beendet ist, 
dadurch, daß ein CR oder ein Strichpunkt 
folgt. Falls ja, wird CRLF ausgegeben und 
der restliche Teil auf die übliche Weise aus¬ 
geführt. 

Bei PRO erfolgt die Abfrage auf die 
Formatanweisung. Bei PRl wird geprüft, 
ob vielleicht ein String ausgegeben werden 
soll. Ebenfalls in dem Unterprogramm 
QTSTG wird auf das Zeichen 5 FH (Un¬ 
terstreichung) abgefragt; wird dieses ein¬ 
gegeben, so wird 8DH ausgegeben, was 
einem CR mit gesetztem Paritätsbit ent¬ 
spricht. Dadurch wird in der Ausgabe ver¬ 
hindert, daß ein Line-Feed-Zeichen (LF) 
mit ausgegeben wird, und es kann bei ei¬ 
nem druckenden Ausgabegerät eine Zeile 
mehrfach gedruckt werden, z.B. für Her¬ 
vorhebungen. 

War QTSTG negativ, so wird PR8 aus¬ 
geführt und dort ein arithmetischer Aus¬ 
druck ausgewertet. Der Wert wird dann 
durch PRTNUM mit der im C-Register ge¬ 
speicherten Maximallänge ausgegeben und 
ggf. aufgefüllt. Durch Komma getrennt 
können mehrere solcher Ausdrücke in der 
PRINT-Anweisung verwendet werden. Hört 
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PRINT mit einem Komma auf, so wird 
kein CRLF ausgegeben. 

Beispiele: 

50 A=2 

100 PRINT “TEST TEXT”, 

110 PRINT A,#8,A,“TEXT” 

120 PRINT 

130 PRINT “A C E”_, ”B D” 

Bei der Ausführung wird folgendes gedruckt: 

TESTbTEXTbbbbb2bbbbbbb2TEXT 
(b steht für Blank) 
er 

(er nur Carriage return) 

ABCDE 

STOP 

STOP beendet den aktuellen Programm¬ 
lauf. Mit ENDCHK wird geprüft, ob die An¬ 
weisung mit CR beendet wird. Anschlie¬ 
ßend wird RSTART aufgerufen. 

Beispiel: 

100 A=1 
110 STOP 
120 A=2 

Nach Ausführung dieses Programms hat 
A den Wert 1. 


CALL 

CALL dient dem Aufruf von Maschinen- 
Unterprogrammen. Dazu wird mit dem 
Aufruf von EXPR eine Adresse in das HL- 
Register gebracht. DE wird gerettet, auf 
den Stack die Rücksprungadresse ,,HERE” 
gebracht und mit PCHL der indirekte Un¬ 
terprogrammsprung ausgeführt. 

Nach dem RET-Befehl des Maschinen- 
Unterprogramms erfolgt der Rücksprung 
auf die Marke HERE. Dort wird der Text¬ 
pointer zurückgeholt und mit FINI die 
Ausführung des Basic-Programms fortge¬ 
setzt. 


Beispiel: 

100 CALL HEX (4000) 


4000H: LDA 5000H 
INR A 
STA 5000H 
RET 

5000H: Zählerstand 

Durch den Aufruf in Zeile 100 wird der 
Inhalt der Zelle 5000H um eins erhöht. Auf 
diesen Wert kann dann zum Beispiel mit 
PEEK zugegriffen werden. 


OUTCHAR 

Dieser Befehl gehört nicht zum Standard- 
Basic und dient der Ausgabe eines einzel¬ 
nen Zeichens. Mit EXPR wird ein Wert ge¬ 
holt, der im ASCII-Code als Zeichen ausge¬ 
geben wird. Dazu wird der niederwertige 
Teil aus dem HL-Register in den Akkumu¬ 
lator geladen und mit OUTC ausgegeben. 
Der Aufruf von FINI führt das Programm 
fort. 

Beispiel: 

200 OUTCHAR 65 
210 B=66 
220 OUTCHAR B 
230 C=‘C’ 

240 OUTCHAR C 

Nach der Ausführung dieses Programms 
steht auf dem Bildschirm die Sequenz ABC. 

OUT 

Der Befehl OUT erlaubt die Ausgabe eines 
Datenwertes an einen 8080 Port. Dazu er¬ 
hält OUT als Parameter die Adresse des 
Ports und als Zuweisung den Datenwert. 

Dazu wird als erstes die Routine PARN 
aufgerufen. Abb. 3.3.4-10 zeigt das ent¬ 
sprechende Syntaxdiagramm. Dort ist 
sichtbar, daß EXPR diesmal durch Klam¬ 
mern eingeschlossen sein muß; genau dies 
erreicht der Aufruf von PARN. Mit TSTC 
wird dann getestet, ob das Zuweisungssym- 
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Abb. 3.3.4-10 Syntaxdiagramm von OUT 


bol folgt, und dann durch einen erneu¬ 
ten Aufruf von EXPR der Daten wert ge¬ 
holt. Als nächstes wird die Befehlssequenz 
D3 XX C9, beginnend bei lOBUFA, gespei¬ 
chert, wobei für xx die Adresse des I/O- 
Ports eingesetzt wird, die durch den ersten 
Aufruf von EXPR geholt wurde. Diese 
selbstmodifizierende Technik ist nötig, da 
im 8080-Befehlssatz kein I/O-Befehl vor¬ 
gesehen ist, der eine indirekte Adressierung 
erlaubt (im Gegensatz zum Z80, bei dem 
solche Befehle existieren). 

Beispiel: 

100 OUT(HEX(10))=20 

Auf den I/O-Port mit der sedezimalen 
Adresse 10H(dez.l6) wird der dezimale 
Wert 20 gegeben. 

0 $ 

Da eine Stringverarbeitung in einem Stan- 
dard-Basic-Interpreter eine relativ umfang¬ 
reiche Angelegenheit ist, wird hier eine 
stark vereinfachte Version durchgeführt, 
die aber durchaus sehr leistungsfähig ist. 

Bei der Marke „O:” beginnt das Programm. 

0$ hat die Aufgabe, einen String auszu¬ 
geben. Dabei steht dieser String an einer 
beliebigen Stelle im Speicher, möglichst 
hinter dem Basic-Programm. Der String 
wird durch ein Endekennzeichen begrenzt, 
wobei hier die binäre Null verwendet ist. 
0$ erhält als Parameter die Anfangsadresse 
des Strings. Dazu wird im Programm 
EXPR aufgerufen und die Adresse in das 
DE-Register transportiert. Damit kann 
durch die Routine PRTSTG der String 
ausgegeben werden. Durch den vorange¬ 
stellten Befehl „XRA A” wird erreicht. 


daß die Ausgabe des Strings mit dem Zei¬ 
chen NUL (binäre Null) beendet wird. Der 
Textpointer DE wird während dieses Vor¬ 
gangs zwischengespeichert, um danach wie¬ 
der für die normale Basic-Ausführung zur 
Verfügung zu stehen. Mit FINI wird der 
Programmlauf fortgesetzt. 

Beispiel: 

100 0$ 4096 

Beginnend mit der Zelle 4096 wird ein 
dort stehender Text ausgegeben, bis der 
Wert NUL vorkommt, d.h. bis zu einem 
Null-Byte. 

1 $ 

Diese Anweisung dient der Eingabe eines 
Strings an eine als Parameter angegebene 
Speicheradresse. Dabei wird das Ende des 
Strings automatisch durch NUL gekenn¬ 
zeichnet. Durch den Aufruf von EXPR 
wird die Adresse geholt. Mit GLl wird 
eine Zeile vom Benutzer angefordert, die 
durch die Eingabe eines CRs beendet wird. 
Das Zeichen CR wird selbst nicht mit ab¬ 
gespeichert, stattdessen das Zeichen NUL. 
Der Transport geschieht dazu zuvor mit 
MVUP. Anschließend wird noch die Va¬ 
riable LEGT mit der Länge des Strings be¬ 
legt, so daß beim nächsten Aufruf von 
LEN die richtige Länge vorbesetzt ist. 

Beispiel: 

100 l$TOP 
110O$TOP+l 

Wurde bei der Eingabe ABCD angegeben, 
so wird bei der Ausgabe dieses Textes 
BCD ausgegeben. TOP ist die Variable für 
den ersten freien Speicherplatz hinter dem 
Basic-Programm und kann dafür verwendet 
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werden, eine dynamische Speicherplatzzu¬ 
weisung zu'erreichen. Werden alle String¬ 
variable durch Bezug auf TOP gewonnen, 
also TOP,TOP+10,TOP+30, so wird immer 
die optimale Speicherplatzausnützung ge¬ 
sichert. Dabei muß darauf geachtet wer¬ 
den, daß keine Kollision mit dem eindimen¬ 
sionalen Feld auftritt. 

POKE 

Mit POKE kann eine Speicherzelle verän¬ 
dert werden. Dazu erhält POKE zwei Para¬ 
meter, die Adresse und den Datenwert. 

Abb. 3.3.4-11 zeigt das Syntaxdiagramm 
zu POKE. Die beiden Parameter werden 
durch Komma getrennt. Dazu wird die 
Routine TSTC aufgerufen. Der niederwer¬ 
tige Teil des Datenwertes wird an die Stel¬ 
le, die der erste Parameter angibt, gespei¬ 
chert. 

Beispiel: 

100 POKE 4096,10 

Der Wert 10 wird auf die Adresse 4096 ge¬ 
speichert. 

TAB 

TAB, dessen Syntax 3.3.4-12 zeigt, 
wird hier als eigener Befehl verwendet und 
nicht, wie sonst oft üblich, als ,,SPC” im 
PRINT-Befehl. TAB erhält als Parameter 
in Klammern einen arithmetischen Aus¬ 
druck, der die Anzahl der Blanks (Leerzei¬ 
chen) angibt, die ausgegeben werden sol¬ 
len. Ist der Wert 0, so werden keine Leer¬ 
zeichen ausgegeben, sonst wird der Wert 


um eins verringert und solange Leerzeichen 
ausgegeben, bis 0 erreicht wird. 

Beispiel: 

200 PRINT “A”, 

210TAB(10) 

220 PRINT “E” 

Bei der Ausführung erscheint folgendes: 

AbbbbbbbbbbE 

wobei b für ein Blank steht. 

BYTE 

BYTE gibt den Wert, der als dezimaler Pa¬ 
rameter hinzugefügt wurde, in sedezimaler 
Schreibweise aus. Dabei werden nur dezi¬ 
male Zahlen bis 255 in Form zweier sede¬ 
zimaler Stellen ausgegeben. 

Beispiel: 

100 BYTE{17) 

ergibt den Ausdruck 11. 

WORD 

WORD arbeitet wie BYTE, nur werden 
vier sedezimale Stellen ausgegeben. Die Un¬ 
terprogramme WRIT2 und IST dienen der • 
Ausgabekonvertierung. 

Beispiel: 

100 WORD(1023) 
ergibt den Ausdruck 03FF 

Dabei wird bei WORD wie auch bei BYTE 
kein CRLF ausgegeben, so daß die Ausga¬ 
beformatierung durch PRINT-Befehle ge¬ 
steuert werden kann. 


Poke 



Abb. 3.3.4-11 Syntaxdiagramm von POKE 



Abb. 3.3.4-12 Syntaxdiagramm von TAB 
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3.3.5 Basic-Programmbeispiele 

Abb. 3.3.5-1 zeigt einige Beispiele mit 
dem RDK-BASIC. Es muß noch erwähnt 
werden, daß diese Basic-Programme wegen 
einiger vorher bereits besprochener Syntax- 


Unterschiede nicht ohne Änderung auf 
Standard-Basic-Interpretern laufen (PET, 
CBM, TRS-80, Apple usw.). Die nötigen 
Anpassungen lassen sich aber leicht durch 
Vergleich der Systemhandbücher mit dem 
vorstehenden Kapitel herausfinden. 


19 REM STRINGVERARREITUNG 

20 PRINT "EINGABF FINES STRINGS 

39 1$ TOPJRFM FINGARE OES STRINGS 

40 S=0 

59 FORI-=^TOP TO TOP-4LEN-2 

60 IFPFFK(i:)>PFFKCI + l )A-PEFK(:i + l ) ;P0KF1 + 1 ,pp;fk(:i) ;pokei,a;s=i 

79 NEXTl 

80 .TF S^l GOTO 4 0 
99 l'RJNT 

100 PRINT"SORT.1FRTF. BUCHSTABEN DES STRINGS" 

119 0$ TOP 

READY 
> RUN 

EINGAFJF EINES STRINGS : STRING ZUM SORTIEREN. 

SORTIERTE BUCHSTAPFN DES STRINGS 
.EEG11MNNO R R RSS T TU Z 
READY 


19 REM ARRAYVERAROEITUNG 

20 EOR 1:^1 TO 10 

39 REM LOESCHEN 

40 NEXT I 

59 FOR I:-:l TO 10 

60 FOR TO 10 

79 a( i.:)=-*-.s)(;i)4Rndci00 ) 

80 NEXT J 
99 NEXT I 

100 FOR 1^1 TO 10 

119 PRINT tt4,a(X), 

120 NEXT I 
13H PRINT 

READY 

> RUN 

492 451 530 617 596 699 599 537 659 505 

READY 

> RUN 

482 375 422 313 507 544 371 508 5.1 0 512 

READY 

>RUN 

552 301 413 583 511 489 545 499 353 587 


Abb. 3.3.5-1 Beispiele fiii das RDK-BASIC 


1 
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10 RFM VERGLEICHE 
20 PRINT 

30 INPUT'T>)ERT EUER A"A,'*WERT EUER H"B 
40 PRINT #3 vA,B,A'-=B,A<B,A>B,A<=B,A>=B,A#B 
50 GOTO 30 


READY 
> RUN 


WERT 

EUER 

A:2 




WERT 

F UER 

B:3 




2 

3 0 

1 0 

1 

0 

1 

WERT 

EUER 

A:3 




WERT 

EUER 

B 2 2 




3 

2 0 

0 1 

0 

1 

1 

WERT- 

EUER 

A:2 




WERT 

EUER 

B:2 




9 

2 1 

0 0 

1 

1 

0 

WERT 

EUER 

A:-l 




WERT 

EUER 

B:“3 





-3 0 

0 1 

0 

1 

1 

WERT 

EUER 

A:-3 




WERT 

EUER 

B2-1 




-3 - 

“1 0 

1 0 

1 

0 

1 

WERT 

r-UER 

A:~3 




WERT 

EUER 

B:-3 




”3 • 

-3 1 

0 0 

1 

1 

0 

WERT 

EUER 

A: 




WHAT? 





WERT 

EUER 

A: A+1 




WERT 

EUER 

b;b=3 




~2 

0 0 

1 0 

1 

0 

1 

WERT 

EUER 

A:A+1 




WERT 

EUER 

B:B--1 




-1 •• 

“1 1 

0 0 

1 

1 

0 

WERT 

EUER 

A:2 




WERT 

EUER 

B:3 




o 

3 0 

1 0 

1 

0 

1 

WERT 

EUER 

A: A+1 




WERT 

EUER 

B:B->4 




3 - 

-1 0 

0 1 

0 

1 

1 

WERT 

EUER 

A:RND(20;) 



WERT 

EUER 

BsRNOC 

20) 



14 !l 0 0 

0 1 

0 

1 

1 

WERT 

EUER 

A;HEX(10) 



WERT 

EUER 

B:T0P“ 

TOP-i-5 


16 

5 0 

0 l 

0 

1 

1 

WERT 

EUER 

A : a (5 ) 




WERT 

EUER 

) 




5115B3 0 

1 0 

1 

0 

1 


Abb. 3.3.5-1 
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10 REM ARITHMETIK MIT RELATIONEN 
20 INPUT’'1=-TEST1 2=TEST2"T 

30 GOTO (T=:1)*100 + CT=^2;)*200 + (T<1)*20 + CT>2)*20 
100 PRINT"TERTJ";G0T0 20 
200 PRINT "TEST2";GOTO 20 


READY 

>RUN 

1=TEBT1 

2:^-TEBT2 :l 

TESTl 

1=TEBT1 

2=TFST2:2 

TEST2 

1=TEBT1 

2:^TEST2 :5 

1=TEBT1 

2=^TEST2:4 

1=TEBT1 

2=TEST2:3 

1=TEST1 

2=^TEST2 5-2 

1=TF.BT1 

2==TEST2 :l 

TESTl 

1=TEBT1 

2=^TEST2 :5 

1=TEST1 

2=TEST2:3-2 

TESTl 

1=TEST1 

2=TEST2:5-4 

TEST2 

1=TEST1 

2---^TEBT2 : 


Abb. 3.3.5-1 


READY 


>PRINT 

TOP,SIZE 

4551 

452 

READY 


>END HEX(3FFF)--140 

READY 


>PRINT 

TOP,BIZE 

4551 

11559 


READY 

>WORD(TOP) 
11C7 


10 REM FEHLERBEHANDLUNG 
20 PRINT 2+^J .,b ,55r.*888,4,8 

READY 
> RUN 

6 5HOW? 

20 PRINT 2 JA,5,535*888?,4,8 
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>10 REM ANUENOUNG VON INCHAR UNO OUTCHAR 
>20 OUTCHAR(INCHAR+1);REM UMKODIERUNG 
>30 GOTO 20 
>RUN 

UFTU ! EFT ! VNLPEJFSFOT Abb. 3.3.5-1 


READY 

>LIST 

10 REM ANWENDUNG VON INCHAR UND OUTCHAR 
20 OUTCHAR<lNCHAR-1> 

30 GOTO 20 


10 REM TAB FUNKTION 
20 FORI=-B TO 8 
30 PRlNTtt2,I,"!", 

40 TAB CI*!) 

50 PRINT"*" 

60 NEXT I 


READY 
> RUN 
"8 • 

-7 ! 

-6 ! 

-5 ! 

-4 ! * 

-3 ! * 

-2 ! * 

~1 ! * 

0 ! * 

1 ! * 

2 ! * 

3 ! * 

4 ! * 

5 ! 

6 ! 

7 ! 

8 ! 


* 


* 


* 


* 


* 


* 


* 


READY 

> 
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10 REM KLEINES MONITORPROSRAMM 
20 INPUT"BEFEHL 1 =GOTO 2--=DUMP"B 
30 GOTO (l3-i:)*100 + <S-^2)*200 + (B<l)*20 + (B>2:)4f20 
100 lNPUT"Ar)RESSE''A 
110 CALL A 
120 GOTO 20 

200 INPUT"ANFAORESSE"A,"ENOADRESSE"E 
210 FORI-==ATOE STEP 8 
220 NORD (1 PRINT” ”, 

230 FORJV.0TO7 

2A0 BYTE(PEEKCI+J));PRINT ” ", 

250 NEXTJ 
260 PRINT 
270 NEXTI 

280 PR1NT5GOTO 20 Abb 3 3 5-1 


READY 
> RUN 

BEFEHL l*=GOTO 2 = DUMP:2 
ANFAORESSE:HEX(500) 
ENDADREP>SE:HEX(50F:) 

0500 C9 0F 05 C3 05 05 C3 03 
0508 F0 C3 00 D0 C3 12 F0 31 

BEFEHL 1^(30T0 2 = DUMP:l 
ADRESSE:HEX(F01E;) 

BEFEHL l=GOTO 2=DUMP:tt# 


3.3.6 Erweiterungsmöglichkeiten 
des Basic-Interpreters 

3.3.6.1 Fließ kom ma-A ri thme ti k 

Unser Basic-Interpreter beherrscht nur 
die Ganzzahl-Arithmetik (Integer). Da¬ 
durch ist er für wissenschaftliche Berech¬ 
nungen meist nicht einsetzbar. Hier soll 
nun kurz aufgezeigt werden, wie es mög¬ 
lich ist, ein ,,Gleitkommapaket” aufzu¬ 
bauen. 3.3.6.1-1 zeigt das Listing 
eines eingeschränkten „Floatingpoint¬ 
package”. Es ist fähig, zwei Grundrechen¬ 
arten (+ und —) auszuführen. 

Bei einer Gleitkommaarithmetik wird 
eine Zahl durch eine Mantisse und einer 
„Charakteristik” dargestellt, z.B. 

.123 E 23. Dabei ist 123 die Mantisse 
und 23 der Exponent. Es müssen außerdem 
noch die Vorzeichen mit gespeichert wer¬ 
den. Dazu wird meist für die Mantisse das 
Zweierkomplement verwendet und beim 


Exponent eine Konstante aufaddiert, so 
daß dadurch die Charakteristik entsteht. 
Abb. 3.3.6.1-2 zeigt die hier verwendete 
Darstellung. 

Die Zahlendarstellung erfolgt wegen 
der Lesbarkeit im BCD-Format, so daß 
auch Umwandlungsroutinen von Binär in 
BCD und umgekehrt entfallen. Ein weite¬ 
rer Vorteil einer BCD-Arithmetik ist die 
Genauigkeit, da Rundungsfehler beim Um¬ 
wandeln entfallen. Die Charakteristik wird 
mit vier BCD-Stellen dargestellt, was 2 
Bytes entspricht. Die Additionskonstante 
ist 5000. Diese Konstante ist bei Addition 
und Subtraktion nicht von Belang, sondern 
müßte erst bei Multiplikation und Division 
berücksichtigt werden. Die Mantisse wird 
mit zehn BCD-Stellen dargestellt und de¬ 
ren Vorzeichen mit einer zusätzüchen Stel¬ 
le, die auch eine Überlaufstelle beinhaltet. 
Bei einem negativen Vorzeichen stehen 
an der Stelle 2 die Ziffern 99 und bei einer 
positiven Mantisse 00. 
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TDL Z80 
.MAIN. 


0100 


0100 

0103 

0106 


0005 

0002 

5000 

0006 


0109 
0109 
910A 
010B 
019C 
01 0 C 
0100 
010E 
910F 
0110 
0111 
0112 
9114 
0115 
9116 


0117 
0117 
0113 
0119 
9119 
011B 
911C 
011 D 


CP/M DISK ASSEMBLER VERSION 2.21 


PAGE 1 


.PHEX 
.PA8S 
.LOC 100H 

; **********************^f** 

;* BCD FLOATING POINT * 

;* PACKAGE 301110 RDK * 

;************************* 

C3 F01E JMP 0F01EH ;MONITOR AUFRUF 

C3 014B JMP FLOATADD 

C3 0187 JMP FLOATCOM 


1 

LENM=5 ;MANTISSENLAENGE 
LENC=2 ;CHARACTERISTIK 

CHARC=--5000H ; DISPLACEMENT CHARACTERISTIK 

CHAR=6 ;POSITION CHARACTERISTIK 

;AUFBAU 


CC CC VZ H ... L 

10 8 6 4 2 

9 7 5 3 1 

VZ IST UE8ERLAUF UNO VORZEICHEN 
99 IST NEGATIVE ZAHL 
00 POSITIV 

ANDERE ZAHELEN SIND UEBER- ODER UNTERLAEUFE 


E5 

A08C0: 
PUSH H 

05 

PUSH D 

AF 

XRA A 

1 A 

. , LP: 
LDAX D 

3E 

ADC M 

27 

DAA 

77 

MOV M,A 

2B 

DCX H 

IB 

OCX D 

10F8 

DJNZ ..1 

01 

POP 0 

El 

POP H 

C9 

RET 


(HL)+COE)->(HL) BCD ADO MANTISSE 
IN B IST LAENGE ANZUGEBEN 


;ausfuehren 


.LP 


KOMPLEMENT 



COMBCD: 

E5 

PUSH H 

AF 

XRA A 


. .LP: 

3E00 

MVI A,0 

9E 

SBB M 

27 

DAA 

77 

MOV M,A 


-(HD-XHL:) in BCD 


Abb. 3.3.6.1-1 Listing des BCD-Fließkomma- 
Programmpakets 
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01 lE 

28 

OCX H 

011 F 

10F8 

DJNZ ..LP 

0121 

El 

POP H 

0122 

C9 

RET 


TDL 7.80 CP/M DISK ASSEMBLER VERSION 2.21 PASF 2 

.MAIN. - 


RECHTSSCHIEBEN BCD 
ARITHMETISCH ! 


0123 


RRBCO: 

0123 

E5 

PUSH H 

0124 

D5 

PUSH 0 

0125 

53 

MOV E,B 

0126 

1600 

MVI D,0 

0128 

AF 

XRA A 

0129 

ED52 

DSBC D 

0128 

23 

INX H 

012C 

7E 

MOV A,M 

012 0 

0F 

RRC 

012E 

0F 

RRC 

012F 

0F 

RRC 

0130 

0F 

RRC 

0131 


. .LP: 

0131 

ED67 

RRD 

0133 

23 

INX H 

0134 

10FB 

DJNZ ..1 

0136 

01 

POP 0 

0137 

El 

POP H 

0138 

C9 

RET 


;B LAENGE+1 HL AUF LOW 
;DABEI HL AUF VORZEICHENSTELLE 


Abb. 3.3.6-1 


.LP 


CHL) + i->CHL;) BCD INCREMFNT 
8 IST LAENGE 


0139 


INRBCD: 

0139 

E5 

PUSH H 

013A 

05 

DCR 8 

0138 

7E 

MOV A,M 

013C 

C601 

ADI 1 

013E 

27 

DAA 

013F 

77 

MOV M,A 

0140 

28 

OCX H 

0141 


. .LP: 

0141 

7E 

MOV A,M 

0142 

CE00 

ACI 0 

0144 

27 

DAA 

0145 

77 

MOV M,A 

0146 

28 

OCX H 

0147 

10F8 

DJNZ ..1 

0149 

El 

POP H 

014A 

C9 

RET 


FLOAT ADD 
ACCUl IST DATl 
ACCU2 IST OAT2 
CDATl)+(DAT2)-><DATl) 
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3 RDK-Basic 


014B 


FLOATADD: 

014B 

D021 0207 

LXI X,0AT1.+7 

014F 

FD21 820F 

LXI Y,DAT2+7 

0153 


LOOPAN: 

0153 

007EF9 

MOV A,-CHAR-1<X) 

0156 

FDBEF9 

CMP -CHAR-KY) 


;EXPONENT VERGLEICH 


TDL 7-80 CP/M DISK ASSEMBLER VERSION 2,21 
■MAIN. - 


PAGE 3 


0159 

381E 

JRC DIANGLEICH 

9158 

200A 

JRNZ 02ANGLEICH 

015D 

DD7EFA 

MOV A,-CHAR(X) 

0160 

F08EFA 

CMP -CHARCY) 

0163 

3814 

JRC DIANGLEICH 

0165 

231F 

JRZ SKIPANGLEICH 

0167 


D2ANGLEICH: 

0167 

21 020F 

LXI H,0AT2+7 

016A 

0606 

MVl B,LENM+1 

916C 

CD 0123 

CALL RRBCD 

016F 

21 0209 

LXI H,DAT2+7-CHAR 

0172 


ONSO: 

0172 

0662 

MVl B,LENC 

9174 

CO 0139 

CALL INR8CD 

6177 

18 DA 

JMPR LOOPAN 

0179 


DIANGLEICH: 

0179 

21 0267 

LXI H,DATl+7 

017C 

0606 

MVl B,LENM+1 

017E 

CD 0123 

CALL RRBCD 

9181 

21 0201 

LXI H,0ATl+7-CHAR 

0184 

18EC 

JMPR ONSO 

0186 


SKIPANGLEICH: 

0136 

21 0207 

LXI H,0AT1+7 ;A 

0189 

11 020F 

LXI D,DAT2+7 

918C 

0606 

MVl B,LENM+1 

018E 

CD 0109 

CALL ADBCD 

9191 


NORM: 

0191 

DD21 6207 

LXI X,DATl+7 

0195 

DD7EF8 

MOV A,1-CHAR(X) 

0198 

47 

MOV B,A 

0199 

0F 

RRC 

019A 

0F 

RRC 

0198 

0F 

RRC 

01 9 C 

0F 

RRC 

919D 

E60F 

ANI 0FH 

019F 

4F 

MOV C,A 

01A0 

78 

MOV A,B 

01A1 

E60F 

ANI 0FH 

01 A3 

89 

CMP C ;UELAUF=VZ 

01 A4 

2810 

JRZ OKEQ 

91 A6 

21 0207 

LXI H,OATl+7 

01A9 

0606 

MVl B,LENM+1 

91 AB 

CO 0123 

CALL RRBCD 

01 AE 

21 0201 

LXI H,DATl-f7-CHAR 

9181 

0602 

MVl 8,LENC 

01B3 

CD 0139 

CALL INRBCD ;S' 

9186 


OKEQ: 

0186 

C9 

RET 


Abb. 3.3.6-1 


ADDIEREN MANTISSE 
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3.3 Realisierung des Basic-Interpreters 


HIER KEIN CHECK OB EXPONENT UEBERl.AFUFT. 
FLOAT COMPLEMEiNT 
DATl WIRD NEGIERT 


91B7 


FLOATCOM: 

01B7 

21 0207 

LXI H,DATl+7 

91BA 

0606 

MVI B,LENM+1 

01BC 

CD 0117 

CALL COMBCD 

91BF 

C3 0191 

JMP NORM 


;GGF NORMIEREN 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGF 4 

.MAIN. - 


0200 

.LOG 200H 


0200 

DATl: .BLKB 

8 

0208 

OAT2: .BLKR 

8 


.END 



DL 7.80 CP/M DISK ASSEMBLER VERSION 2.21 PAGF 5 

.MAIN. - 

+++++ SYMBOL TABLE +++++ 


ADBCD 

0109 


CHAR 

0006 

CHARC 

5000 

COMBCD 

0117 


OlANGL 

0179 

02ANGL 

0167 

DATl 

0200 


DAT2 

0208 

FLOATA 

014B 

FLOATC 

01B7 


INR8C0 

0139 

LENC 

0002 

LENM 

0005 


LOOPAN 

0153 

NORM 

0191 

OKEQ 

0186 


ONSO 

0172 

RRBCD 

0123 

SKIPAN 

.PROG. 

0186 

0000' 

X 

.BLNK. 

0000:03 X 

.DATA. 

0000* 


0 

1 

2 

3 4 

5 

6 


H 

1 

L 

1 

vz ü 

1 

H 

_1_ 

_1_ 

_1_ 

_1_ 

L 

1 

Byte 

' 1 

1 

1 

1 1 
1 1 
1 1 

1 

1 

1 

1 

j 


Exponent Vorzeichen Mantisse 

und 

Überlauf 


Abb. 3.3.6.1-2 Gleitkommadarstellung 
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3 RDK-Basic 


Beschreibung der einzelnen Unterprogram¬ 
me 

ADBCD 

Dieser Programmteil hat die Aufgabe, 
zwei BCD-Zahlen zu addieren. Dabei wird 
(HL) mit (DE) addiert und nach (HL) ge¬ 
speichert. Die Länge der Zahlen wird im 
Register B angegeben. Dabei gibt B genau¬ 
genommen die Anzahl der Bytes an, wo¬ 
bei ein Byte aus zwei BCD-Ziffern besteht. 
Die eigentliche BCD-Addition wird durch 
den Befehl ADC M, DAA durchgeführt. 
Diese Routine wird verwendet, um die 
Mantissen zu addieren. 


COMBCD 

Hier wird eine BCD-Zahl, auf die HL zeigt, 
komplementiert. HL zeigt dabei auf die 
niederwertige Stelle der Zahl. Die Opera¬ 
tion dafür lautet 1000...0 — x. Die Anzahl 
der Stellen wird im Register B angegeben. 

RRBCD 

Die Mantisse muß zur Korrektur rechtsver¬ 
schoben werden. Dies entspricht einer Di¬ 
vision durch 10. Das Vorzeichen muß da¬ 
bei erhalten bleiben. Das Register B erhält 
dazu die Länge der Mantisse +1, um auch 
das Vorzeichen zu erfassen. Die gesamte 
Vorzeichenstelle wird mit verschoben, wo¬ 
bei von links nach rechts das Vorzeichen 
nachgeschoben wird. Die Verschiebung ge¬ 
schieht mit dem mächtigen Befehl RRD 
des Z80. Beim 8080 ist dies eine längere 
Sequenz von Befehlen. 

Beispiel: 

vor dem Verschieben: 0012345 
9923653 

nach dem Verschieben: 0001234 
9992365 

INRBCD 

Das Programm dient der Erhöhung des Ex¬ 
ponenten. Da es allgemein gehalten ist, 
wird in HL die Adresse des niederwertigen 


Teils angegeben und B gibt die Länge an 
(bei uns 2). 


FLOATADD 

Dies ist das eigentliche Additionsprogramm 
für eine Gleitkommaaddition. Es wird der 
Inhalt von DATl auf DAT2 addiert und 
das Ergebnis bei DATl gespeichert. DATl 
und DAT2 beinhalten jeweils eine Gleit¬ 
kommazahl mit der Darstellung nach 
Abb. 2.2.6.1-2. 

Als erstes wird untersucht, ob die bei¬ 
den Charakteristiken gleich sind. Wenn ja, 
so wird auf SKIPANGLEICH gesprungen. 
Sind sie verschieden, so muß der Kleinere 
von beiden zuvor angeglichen werden. Dies 
geschieht bei DIANGLEICH und 
D2ANGLEICH. Es wird jeweils die Man¬ 
tisse nach rechts verschoben (Division 
durch 10) und die Charakteristik um eins 
erhöht. Dies geschieht solange, bis beide 
Charakteristika gleich sind. Hier könnte 
eine Programmoptimierung vorgenommen 
werden, die überprüft, ob mehr als 10 mal 
verschoben wurde, da dann die Mantisse 
den Wert 0 angenommen hat und ein wei¬ 
teres Schieben keine Änderung bewirkt. 

Bei SKIPANGLEICH kann die Addition 
durchgeführt werden. Dabei kann ein Über¬ 
lauf auftreten; dies wird anschließend ge¬ 
prüft. Falls die kombinierte Vorzeichen¬ 
überlaufstelle nicht in beiden Ziffern den 
gleichen Wert hat, ist dies der Fall: Die 
Mantisse wird dann durch 10 dividiert und 
die Charakteristik um eins erhöht. 


FLOATCOM 

Die Gleitkommazahl in DATl wird kom¬ 
plementiert. Dies geschieht durch den Auf¬ 
ruf von COMBCD. Anschließend wird zur 
Marke NORM gesprungen und dort ein 
Überlauf korrigiert, der hier ebenfalls auf¬ 
treten kann. 

Abb. 3.3.6.1-3 zeigt einige Beispiele. 
Auf der Adresse lOOOH wurde ein kleines 
Hauptprogramm geschrieben, das 
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3.3 Realisierung des Basic-Interpreters 


>01000 100F 

1000 CD 03 01 CD lE F0 
>01020 102F 

1020 CD 06 01 CD lE F0 
>D200 20F 

0200 ir.0 00 00 12 55 66 00 00 50 00 00 56 88 77 22 00 
>G1000 

ai 006 

>D200 20F 

0200 50 00 00 69 44 43 22 00 50 00 00 56 88 77 22 00 

>G1020 

>0209 20F 

0200 50 00 99 30 55 56 78 00 50 00 00 56 88 77 22 00 

>G1920 

ai026 

>D200 20F 

0200 50 00 00 69 44 43 22 00 50 00 00 56 88 77 22 00 


>D290 20F 

0200 50 05 00 65 44 77 22 00 50 01 00 47 88 99 63 02 

>G1000 

ai006 

>D290 20F 

0200 50 05 00 65 45 25 10 99 50 05 00 00 00 47 88 99 

>G1920 

ai026 

>0290 20F 

0200 50 05 99 34 54 74 89 01 50 05 00 00 00 47 88 99 


>D200 20F 

0200 50 00 99 99 99 99 99 99 50 05 00 00 00 47 88 99 

>G1920 

ai026 

>0290 20F 

0200 50 00 00 00 00 00 00 01 50 05 00 00 00 47 88 99 

Abb. 3.3.6.1-3 Rechenbeispiele mit der Gleitkommaarithmetik 
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>D290 20F 

0200 56 00 99 00 00 00 60 00 50 05 00 06 00 47 88 99 

>Gl 920 

ai 026 

>0200 20F 

0200 56 01 66 10 06 00 00 60 50 65 00 06 60 47 88 99 

>G1020 

ai026 

>0200 20F 

0200 56 01 99 96 60 06 60 00 50 05 00 06 00 47 88 99 


>0200 20F 

0200 50 01 00 45 66 77 88 03 50 01 60 45 66 77 88 45 

>Gl 020 
ai026 
>0200 20F 

0200 50 01 99 54 33 22 11 97 50 01 06 45 66 77 88 45 

>G1000 

ai006 

>0200 20F 

0200 50 01 06 06 00 00 66 42 56 01 60 45 66 77 88 45 


Abb. 3.3.6.1-3 


FLOATADD aufruft und auf 1020H ein 
Programm, das FLOATCOM aufruft. 

Auf Adresse 200H befindet sich DATl 
und auf 208H DAT2. Einen kleinen Nach¬ 
teil hat die hier beschriebene Arithmetik 
noch: Bei der Subtraktion von fast gleichen 
Zahlen tritt eine nicht normierte Zahl auf. 
Das letzte Beispiel zeigt eine solche Situa¬ 
tion. Es wird dort .4566778845 E 0001 — 
.4566778803 E 0001 gebüdet. Als Ergeb¬ 
nis erscheint: .0000000042 E 0001. Eine 
normierte Zahl würde sein: 

.4200000000 E -0007. Am Schluß von 
FLOATADD und FLOATCOM müßte also 
eine Normierung vorgenommen werden. 
Dieses Programm sieht an der höherwerti¬ 
gen Stelle nach, ob sich dort eine 0 befin¬ 
det, oder im Falle einer negativen Zahl 
eine 9. Falls ja, so wird die Mantisse mit 


10 multipliziert (durch eine Linksverschie¬ 
bung) und die Charakteristik um eins ver¬ 
ringert. Dabei muß eine Maximalzahl von 
10 berücksichtigt werden, falls die Man¬ 
tisse 0 ist. 


Multiplikation und Division 

Bei diesen Routinen müssen die Charakte¬ 
ristiken addiert bzw. subtrahiert werden 
und anschließend die Konstante 5000 sub¬ 
trahiert bzw. addiert werden. Danach wird 
nach einer Betragsbildung der Mantissen 
die Multiplikation bzw. Division durchge¬ 
führt und anschließend die Vorzeichen 
wieder gebildet. Abschließend wird eine 
Normierung durchgeführt. 
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3.3 Realisierung des Basic-Interpreters 


Beispiel: 

5001 001234567890 x 5002 001234567890 

1. Charakteristik 

addieren: 5001+5002->10003 

2. 5000 subtra¬ 
hieren: 10003-5000 -> 5003 

3. Mantisse multi¬ 
plizieren: 1234567890x1234567890 

->0152415787_^. . 

4. Ergebnis vor Nor¬ 
mierung: 5003 000152415787 

5. Normierung: 

5002 001524157870 

Dabei ist die unterstrichene 0 eine fehler¬ 
hafte Stelle, die vermieden werden kann, 
wenn mit der doppelten Mantissenstellen¬ 
zahl gerechnet wird, bis nach Ausführung 
der Normierung. 


3.3.6.2 Floppy-Anschluß 

Viel einfacher als ein Gleitkommapaket 
läßt sich eine Floppy in das Basic einbauen. 
Ist ein Betriebssystem (zum Beispiel CP/M 
oder FDOS) schon vorhanden, so ist dies 
besonders einfach: Dort gibt es Routinen 
zum Lesen und Schreiben von Dateien. Die 
Implementierung von SAVE und LOAD 
könnte dabei wie folgt aussehen: 

SAVE dateiname 

Der Parameter „dateiname” wird an das 
Betriebssystem übergeben und die Funk¬ 
tion ALLOCAT, OPEN ausgeführt, die die 
Datei anlegt und für Zugriffe freigibt. Dann 
wird über den Schreibbefehl der Inhalt des 
Basic-Programmspeichers auf die Floppy 
ausgegeben und am Schluß der Befehl 
CLOSE ausgeführt, ebenfalls eine Funktion, 
die ein-Betriebssystem beinhaltet. Mit 
CLOSE wird der Rest der Datei auf die 
Floppy geschrieben und der Zugriff ge¬ 
sperrt. 

LOAD dateiname 

Hier wird nun nur ein OPEN durchgeführt 
und die Datei zum Lesen geöffnet. Dann 


wird mit READ die Datei in den Basic- 
Programmspeicher eingelesen; am Schluß 
werden noch die Pointer im Basic auf die 
neuen Werte eingestellt. CLOSE wird am 
Schluß ausgeführt, um die Funktion wieder 
zu sperren. • 

Außer LOAD und SAVE ist es wün¬ 
schenswert, auch auf Dateiinhalte vom 
Basic aus zuzugreifen. Dazu müssen die Be¬ 
fehle OPEN und CLOSE vom Basic-Pro- 
gramm aus ausführbar sein. Ebenfalls muß 
eine Art ALLOCATE existieren, um neue 
Dateien anlegen zu können. Mit PRINT 
und INPUT kann auf diese Dateien zuge¬ 
griffen werden, wobei sie dazu vom nor¬ 
malen PRINT und INPUT unterschieden 
werden müssen. Dazu wird meist ein Son¬ 
dersymbol direkt hinter die Befehle ge¬ 
stellt. PRINT#1 würde z.B. auf den Kanal 
1 ausgeben, wobei diese sogenannte Kanal¬ 
nummer im OPEN-Befehl mit angegeben 
werden muß, um dem Kanal einen Datei¬ 
namen zuzuordnen. 

Ist kein Betriebssystem vorhanden, so 
muß dies mit in den Basic-Interpreter ein¬ 
gebaut werden. Dabei kann leicht ein Um¬ 
fang von 4... 10 KByte allein für das Be¬ 
triebssystem erreicht werden. 

3.3.6.3 Grafik-Erweiterungen 

Eine besondere Delikatesse ist Computer¬ 
grafik. Gerade hier ist unser Basic-Inter¬ 
preter ideal geeignet, da er eine sehr schnel¬ 
le Arithmetik besitzt. Fehlende Routinen 
wie SIN können dabei leicht durch Tabel¬ 
len ersetzt werden, auf die sehr schnell 
per Index zugegriffen werden kann. Hier 
einige Ideen für Grafikbefehle: 

VECTOR (X1,Y1,X2,Y2) 

Zeichnet einen Vektor von den Koordina¬ 
tenpunkten X1,Y1 nach X2,Y2. Dies kann 
je nach vorhandenem Bildschirm oder 
Drucker mit unterschiedlicher Auflösung 
geschehen; zum Beispiel mit Pseudographik, 
die in einem Zeichengenerator vorhanden 
ist, oder mit hochauflösender Graphik, wenn 
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3 RDK-Basic 


ein Bildschirm da ist, bei dem jeder einzel¬ 
ne Punkt ansteuerbar ist [5]. 

CLEAR 

Löschen des gesamten Bildschirms. 

LINE (M) 

Setzen eines Linienmusters. Dies kann 
durchgehend sein, gepunktet, gestrichelt, 
löschend oder komplementierend und 
wirkt dann zum Beispiel auf den nächsten 
VECTOR-Befehl. 

PLOT (X,Y) 

Setzen eines einzelnen Punktes. Dies kann 
aber auch durch VECTOR erreicht werden 
(X1=X2, Y1=Y2). 

CIRCLE (X,Y,r,phian,phiend) 

Ein komplexerer Befehl, um einen Kreis 
zu zeichnen. Dazu werden Routinen für 
SIN und COS benötigt. Das kann aber 
leicht mit einer Tabelle, z.B. aus 256 Wer¬ 
ten zu 8 Bit realisiert werden, wobei dort 
Sinuswerte von 0 bis 90 Grad gespeichert 
werden und diese Werte aus der Formel 
INT(SIN(phi)*256) gebildet werden. Da¬ 
bei entstehen allerdings in der Nähe von 
90 Grad Werte, die 256 betragen: Sie wer¬ 
den einfach durch 0 ersetzt und durch 
eine Abfrage in dem Hauptprogramm 
SIN wieder erzeugt. Ebenfalls wird im 
Hauptprogramm der Quadrant bestimmt. 


in dem der SIN-Wert gebildet werden soll, 
und daraus das Vorzeichen. Die Darstel¬ 
lung des SIN-Wertes kann nun wieder in 
INTEGER erfolgen, da die Werte nur von 
—256 bis +256 reichen können. Das Glei¬ 
che gilt für COS, wobei nur eine Verschie¬ 
bung um 90 Grad erfolgt. Der Kreis wird 
nun in einer Schleife erzeugt, die wie folgt 
lauten könnte: 


FOR I=phian TO phiend 
DX=(COS’(I)*r)/256 
DY=(SIN’(I)*r)/256 
PLOT(X+DX,Y+DY) 

NEXTI 

Dabei ist SIN’ und COS’ die Spezialrouti¬ 
ne mit dem Wertebereich —256 bis +256. 
Die Division durch 256 zur Normierung 
darf erst nach der Multiplikation mit r er¬ 
folgen, da sonst durch die INTEGER- 
Arithmetik ein Fehler entstehen würde. 


Beispiel: SIN’(45) = 181 . r=20 
DY=(181*20)/256 
DY= 14 

aber DY= 181 *(20/256) 
ergibt: DY=0 ! 

Wird in DX und DY mit unterschiedlichen 
Werten für r multipliziert, so ergeben sich 
Ellipsen. 
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4 12-KByte-Basic für den Z80 


Abb. 4-1 zeigt das Objektcode-Listing des 
„großen” Basic-Interpreters. Der Interpre¬ 
ter wurde ursprünglich von TDL (Technical 
Design Labs) entwickelt und ist sehr lei¬ 
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CD 
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01 
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09 
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28 

C9 

37 

18 

0A 

04E0 

3C 

3D 

28 

C5 

F5 

FE 

03 

CA 

90 

09 

04F0 
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02 
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01 

Dl 

Fl 
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21 

ED 

48 

5E 

01 

El 
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22 

5E 

01 

EB 

74 

23 

23 

Dl 

73 

23 
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77 

23 

13 

B7 

20 

F9 

CO 

C2 

05 

23 
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6B 

7E 

23 

B6 

C8 

23 

23 

23 

AF 

BE 
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72 

13 
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11 
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28 

0C 

01 
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A6 

CD 

51 

04 

11 

FF 

FF 

C4 

85 


stungsfähig. Da die Firma nicht mehr exi¬ 
stiert, soll durch den Abdruck des Listings 
dem Leser die Möglichkeit gegeben werden, 
Zugang zu diesem Basic zu erhalten. 
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4 12-KByte-Basic für den Z80 


Das 12-K-Basic benötigt einen RAM-Spei¬ 
cher von lOOH bis 2FFH. Der Speicher 

darunter bleibt unbelegt. Das Basic ist von 

Adresse 300H ab in ein EPROM schreibbar. 

CIN Holt ein Zeichen von der Kon¬ 

sole in den Akku. 

RIV Holt ein Zeichen vom Leser 

in den Akku. 

CON Im C-Register steht ein Zeichen 

für die Ausgabe auf Konsole. 

WRTV Ausgabe eines Zeichens über 

Register C an den Stanzer 
(PUNCH). 

LISTX Ausgabe eines Zeichens über 

C an die LIST-Device, z.B. zur 
Ausgabe von Basic-Programmen. 

CSTSX Konsolstatus. Übergibt in A 

den Wert FFH, wenn ein Zei¬ 
chen da ist, ohne dieses einzu¬ 
lesen, sonst 0. 

lOCHX Im A-Register wird die aktuel¬ 

le Konfiguration übergeben. 
Kann auch mit XRA A RET 
kurzgeschlossen werden. 

lOSTX Das neue I/O-Byte wird im C- 
Register übergeben. Kann eben¬ 
falls kurzgeschlossen werden. 

MEMCK Im Register B steht die höher¬ 
wertige Adresse in A die nie¬ 
derwertige Adresse des höch¬ 
sten für das Basic-Programm 
zur Verfügung stehenden Spei¬ 
cherplatzes. Nach Starten 
wird die Speichergröße gefragt; 
wird mit CR geantwortet, so 
wird der hier angegebene Wert 
verwendet. 

TRAPX Starten des eigenen Monitor- 
programms. 


4.2 12-KByte-Basic-Befehlsbeschrei- 
bung 

1. Allgemeine Dienstprogramme 
AUTO 

Mit dem Befehl AUTO wird die automati¬ 
sche Erzeugung von Zeilennummern ver¬ 
anlaßt. Dabei kann noch eine Startzeile 
und die Schrittweite angegeben werden, 
z.B. AUTO 100 oder AUTO 100,3. 

CLEAR 

Alle Variablen werden gelöscht. Wird zu¬ 
sätzlich eine Zahl angegeben, so wird der 
Stringplatz auf diesen Wert gesetzt. 

CLEAR 200 löscht alle Variablen und 
setzt den verfügbaren Platz für Strings 
auf 200. 

CONTINUE 

Wurde der Programmlauf mit CTRL-C ge¬ 
stoppt, so kann mit diesem Befehl die Aus¬ 
führung fortgesetzt werden, wenn keine 
Veränderungen am Programm vorgenom¬ 
men wurden. 

DELETE 

Ein Bereich von Zeilen kann gelöscht wer¬ 
den. DELETE 100—135 löscht alle Zeilen 
von 100 bis einschließlich 135. 

KILL 

Damit kann nicht verwendeter Speicher¬ 
platz von Matrizen zurückgewonnen wer¬ 
den. KILL A,B entfernt den Speicherplatz, 
den die Matrizen A und B verbraucht ha¬ 
ben. 

LOAD 

Lädt ein Programm vom Leser. Es wird da¬ 
bei zuvor NEW durchgeführt. LOAD P lädt 
ein Programm, das mit SAVE P abgespei¬ 
chert wurde. Dabei ist nur ein Buchstabe 
als Name zulässig. LOAD? P führt ein 
Prüflesen durch. Wird die Datei geladen. 
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so wird das ASCII-Zeichen „Bell” ausge¬ 
geben. 


LOADGO 

Wie LOAD, aber mit Starten des Pro¬ 
gramms. LOADGO P,100 lädt das Pro¬ 
gramm P und startet dieses auf 100. 


NEW 

Löscht den gesamten Arbeitsspeicher, 
d.h. das Basic-Programm und alle Variablen. 

PRECISION 

Voreingestellt sind 11 Digits Rechenge¬ 
nauigkeit. PRECISION 4 veranlaßt z.B., 
daß Zahlen vor der Ausgabe auf 4 Stellen 
gerundet werden. Intern wird aber weiter¬ 
hin mit 11 Digits gerechnet. 


RENUMBER 

Neunumerierung. Es werden alle Referen¬ 
zen, Sprünge usw. automatisch umgestellt. 
RENUMBER numeriert von 10 beginnend 
in 10er Schritten alle Zeilen. RENUMBER 
110 beginnt bei 110. RENUMBER 120,3 
numeriert beginnend mit 120 in Ser- 
Schritten. RENUMBER 500,5,300 beginnt 
erst bei der Zeile 300 mit einer Neunume¬ 
rierung, die dann ab 500 in 5er Schritten 
läuft. Damit können Lücken eingebaut 
werden. 


RUN 

Löscht alle Variablen und startet die Pro¬ 
grammausführung. Eine angegebene Zei¬ 
lennummer bewirkt den Start von da ab. 


SAVE 

Abspeichern eines Basic-Programms über 
den Stanzer (Punch). SAVE P speichert 
ein vorhandenes Basic-Programm unter 
dem Namen P. Nur ein Buchstabe ist als 
Name zulässig. 


2. Der EDIT-Befehl 
EDIT 

Mit Edit kann eine Programmzeile verbes¬ 
sert werden. EDIT 10 korrigiert Zeile 10, 
falls vorhanden. 

Dazu gibt es weitere Befehle, die aus 
Buchstaben und Zahlen bestehen, die 
nicht über die Konsole ausgegeben werden. 
Zahlen reichen von 1 bis 255 und werden 
hier mit einem kleinen n gekennzeichnet: 

A Lädt den EDIT-Buffer vom 

Programmspeicher neu. 

nD n Zeichen werden gelöscht 

(delete). 

E Beende EDIT und ersetze 

die Zeile. 

nFx Finde das n-te Zeichen x 

im Buffer und halte den 
Pointer direkt davor an. 

H Lösche alles rechts des 

Pointers und gehe in den 
INSERT-Modus. 

I Füge alle folgenden Zeichen 

ein, bis CR oder ESC einge¬ 
geben wird. 

nKx Lösche Zeichen vom Poin¬ 

ter bis zum n-ten Zeichen 
X, lösche dieses aber nicht. 

L Ausgabe der Zeile (list). 

Q Verlasse EDIT ohne Er¬ 

setzung (quit). 

nR Ersetze die folgenden n 

Zeichen durch n vorhandene 
(replace). 

X Pointer ans Zeilenende und 

INSERT. 

Space Pointer nach rechts. 

Rubout Pointer nach links. 

er (Return) Ende des EDIT mit Er¬ 
setzung. 

Escape Ende des INSERT Modes. 
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3. Befehle ßr die Konsole 
LIST 

Ausgabe eines Programms. LIST 
10—100 gibt alle Zeilen von 10 bis 
100 aus, LIST 20- gibt von 20 an alle 
Zeilen aus. 

LVAR 

Ausgabe aller aktuellen Variablen und 
deren Belegung. 

NULL 

Für langsame Konsolen: NULL 3,255 
sorgt dafür, daß nach jedem CR LF drei 
ASCII-Zeichen FFH (Rubout) gesendet 
werden. 

POS 

Die aktuelle Position der Konsoldruck- 
stelle wird übergeben, z.B. A=POS (B), 

B ist ein ,,dummy”-Wert. 

PRINT 

Ausgabebefehl. Beispiel: 

PRINT 123,A, „TEST“;B,CS. Bei Angabe 
eines Kommas wird alle 14 Spalten positio¬ 
niert, bei Strichpunkten werden zwei 
Leerzeichen gelassen. Steht am Schluß ein 
Komma oder Strichpunkt, so wird kein 
CR/LF ausgegeben. 


PRINT USING 

Für PRINT USING gibt es zwei Formen. 
PRINT USING Zeile; ausgabe liste 
PRINT USING String; ausgabe liste 
Im zweiten Beispiel wird die Formatie¬ 
rung durch die Stringvariable bestimmt. 
Bei Angabe einer Zeile muß in dieser mit 
einem „!” beginnend das Format abgelegt 
sein. 

# Numerisches Feld. 

Dezimalpunkt-Position. 

+ Kann am Ende oder am Anfang 

einer numerischen Spezifikation 
stehen. 


- Entsprechend dem Pluszeichen; 

nur werden positive Zahlen mit 
einem führenden Leerzeichen 
ausgegeben. 

** Leere Positionen werden mit * 

gefüllt. 

$ wird unmittelbar vor die erste 
Ziffer gestellt. 

**$ Kombination beider Zeichen. 

, Ein Komma links des Dezimal¬ 

punktes zeigt an, daß Kommas 
alle drei Stellen eingefügt werden. 

tttt Vier dieser Zeichen bestimmen, 

daß die Zahl in Exponentialschreib- 
weise ausgegeben wird. 

Stringfelder werden mit ’ eingeleitet. Sie 
können durch ein oder mehrere der fol¬ 
genden Zeichen gefolgt werden: 

L Linksangleich 

R Rechtsangleich 

C Zentrierung 

E Linksangleich mit Erweiterung, 

falls der String zu lang ist. 

SPC 

Damit kann eine Zahl von Leerzeichen 
ausgegeben werden. 

PRINT A;SPC(5);B es werden 5 zusätz¬ 
liche Leerzeichen zwischen A und B ge¬ 
fügt. 


SWITCH 

Damit kann die Konsolzuweisung geändert 
werden. Dazu erhält SWITCH ein Argu¬ 
ment zwischen 0 und 3. 

0 = TTY 

1 =CRT 

2 = BATCH USE 

3 = USER DEFINED 

(Siehe auch Zapple-Monitor, [5]). 
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TAB 

Damit kann direkt eine bestimmte Druck¬ 
position erreicht werden. 

PRINT A;TAB(30);B B wird beginnend 
bei der Position 30 ausgegeben. 

TRAGE 

TRAGE 1 schaltet den Trace-Modus ein, 
TRAGE 0 schaltet ihn aus. Anstelle der 
Zahl kann auch ein arithmetischer Aus¬ 
druck stehen. Ist dieser ungleich 0, so 
wird eingeschaltet. Es werden dann alle 
ausgeführten Zeilennummern in „O“ aus¬ 
gegeben. 

WIDTH 

Damit kann die Ausgabelänge angegeben 
werden, bei der automatisch ein GRLF 
eingefügt wird. WIDTH 80 stellt die Länge 
auf 80 Zeichen pro Zeile ein; Minimum 
ist 15, Maximum 255. 


4. Befehle ßr den Zeilendrucker 
(LIST-Device) 

Die meisten der vorhergehenden Befehle 
können auch auf einen Drucker geschaltet 
werden, wenn folgende Befehle verwendet 
werden: 

LLIST 

LLVAR 

LNULL 

LPRINT 

LPRINT USING 

LTRAGE 

L WIDTH 

LPOS 

SPG 

TAB 


5. Befehle und Funktionen, die Daten 
transportieren 

LET 

Zuweisung eines Wertes an eine (stets links 
von ,,=” stehende) Variable. 


Beispiel: 10 LET A=20 

LET kann aber auch weggelassen werden 

und dient nur der Übersicht. 

Beispiele: 

200 DIM A(10),B(40) 

210 DIM G(50,10) 

220 DIM D(J) 

230 DIM A$(221) 

DATA 

Konstantenablage, die durch READ geholt 
werden kann, z.B. 

10 DATA 5,8,7,9,1.4 

READ 

Holen der Konstanten, die in DATA (s.o.) 
angegeben sind. 

20 READ A 

Beim ersten Mal erhält A hier den Wert 5, 
dann 8 usw. bis 1.4; danach führt ein er¬ 
neuter Aufruf zum Fehler. 

RESTORE 

Damit kann der Lesezeiger von READ auf 
den Anfang gesetzt werden. Bei diesem 
Basic-Interpreter kann durch Angabe einer 
Zeilennummer zusätzlich der Zeiger auf 
eine bestimmte Zeile gesetzt werden, z.B. 
200 RESTORE 30 

LINE INPUT 

Damit kann eine ganze Zeile in eine 
Stringvariable eingelesen werden. 
Allgemeine Form: LINE INPUT ,,prompt 
String”; Eingabe Liste „prompt String” ist 
optional. 

INPUT 

Eingabe von Daten über die Konsole. 
Beispiel: 

10 INPUT „GEBEN SIE A,B,G ein”;A,B,G 
20 INPUT B$ 

INP 

Lesen eines Z80-Ports. 

A=INP(0) 

A erhält den Wert des Kanals 0. 
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OUT 

OUT 1,7 gibt den Wert 7 an den Kanal 1. 
DIM 

Reservieren von Speicherplatz für Matri¬ 
zen. Matrizen können 1 bis 255 Dimen¬ 
sionen haben. 

WAIT 

Automatische Warteschleife für Ports. 
WAIT A,B,C 

Der Wert am Port A wird mit C exklusiv- 
ODER verknüpft sowie mit B UND- ver¬ 
knüpft. Erst wenn das Ergebnis nicht mehr 
Null ist, wird das Basic-Programm fortge¬ 
setzt. 

PEEK 

Direktspeicherzugriff: B=PEEK(A) holt 
den dezimalen Inhalt der Speicherzelle 
mit der dezimalen Adresse A in B. 

POKE 

Mit POKE A,B wird B in die Zeile mit der 
Adresse A geschrieben. 

COPY 

Damit können Teile des Basic-Programms 
verschoben oder dupliziert werden. 

COPY neue Zeile, increment=Zeilenbereich 
Die im Zeilenbereich angegebenen Zeilen 
werden auf den neuen Bereich kopiert und 
dabei umnumeriert. 

EXCHANGE 

Schneller Austausch von Variablen-Werten. 
EXCHANGE A$,B$ 

EXCHANGE C,D(I,J) 

Im Falle von Strings werden intern nur 
Pointer vertauscht. 

6. Steuerung des Programmflusses 

GOTO 

Sprunganweisung (Argument = Zeilen¬ 
nummer). 


GOSUB 

Unterprogrammaufruf (Argument = Zei¬ 
lennummer). 

RETURN 

Unterprogrammrücksprung. 

ON X GOTO 
ON X GOSUB 

Es wird auf die x-te Zeilennummer gesprun¬ 
gen. 

10 ON A GOTO 100,125,145 
Ist A=l, so wird auf 100 gesprungen. Falls 
A gleich 0 ist oder größer als die Anzahl 
der angegebenen Zeilennummern, so wird 
die nächste Zeile ausgeführt. 

CALL 

Maschinenunterprogrammaufruf. 

CALL adresse, argument 1 ,...,argument n. 
Ruft ein Programm beginnend bei „adresse“ 
auf. Jedes der Argumente wird in eine 16- 
Bit-Zahl gewandelt und nach folgendem 
Schema übergeben: 

SP—> argument n 

argument 1 

HL—> Return-Adresse 
BC—> Zahl der Argumente auf dem 
Stack 

FOR, TO, STEP, NEXT 
Schleifenanweisung, die beliebig geschach¬ 
telt werden kann: 

10 FOR A=B TO C STEP D 
20 . . . 

30 NEXT A 

IF, THEN, ELSE 

Bedingte Anweisung, wobei hier in Ergän¬ 
zung zum Standard-Basic auch ELSE ver¬ 
wendet werden kann. 


Beispiel: 

10 IF B=4 THEN 50 ELSE 30 
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Ebenfalls möglich 
20 IF Z$=„JA" GOTO 50 
30 IF G=5 THEN G=4 ELSE G=7 
Als Vergleiche sind zugelassen: 


= 

Gleich 

<> 

Ungleich 

< 

Kleiner 

> 

Größer 

<= 

Kleiner Gleich 

>= 

Größer Gleich 


Logische Operatoren: 

NOT Negation 

AND Und-Verknüpfung 

OR Oder-Verknüpfung 

Beispiel: 

20 IF (A=0) OR NOT (B=4) THEN C=5 


7. Trigonometrische Funktionen 
ATN 

Ermitteln des Arcustangens: A=ATN(.45) 
Das Ergebnis wird im Bogenmaß angege¬ 
ben. 

COS 

Cosinus berechnen; die Winkelangabe er¬ 
folgt im Bogenmaß: 

B=COS(3.1415) 

SIN 

Sinus-Ermittlung: C=SIN(3.1415/2) 

TAN 

Berechnet den Tangens eines Winkels: 
A=TAN(.254) 


8. Diverse Funktionen 
ABS 

Absolutbetrag: ABS(-4.5) ergibt 4.5. 


DEF, FN 

Damit kann der Benutzer eigene Funktio¬ 
nen definieren. Eine Funktion muß dabei 
mit FN beginnen, gefolgt von einem Va¬ 
riablennamen, z.B. FNA, FNB6. Der Funk¬ 
tionsname wird von einem in Klammern 
stehenden Parameter gefolgt. 

Beispiel: 200 DEF FNQ(X)=X*B+3 
B ist dabei eine Variable, die im Basic-Pro- 
gramm global verwendet wird und X ist 
lokal auf die Definition beschränkt und 
stellt nur den Parameter dar. 

Beispiel: 

10 DEF FNA(X)=X*X 

100 A=FNA(3) 

110 PRINT A 

Es wird der Wert 9 ausgegeben. 

In diesem Basic wurde die Möglichkeit 
der DEF-Anweisung beträchtlich erwei¬ 
tert. Es ist möglich, sie über mehrere Zei¬ 
len erstrecken zu lassen; außerdem können 
rekursive Funktionen definiert werden. 

Das allgemeine Format lautet: 

DEF FN name (parameter ,. . .,parameter) 

Funktionskörper 


FNEND funktionswert 

Es wird im Gegensatz zur Standarddefini¬ 
tion hier einfach das Gleichheitszeichen 
weggelassen. Die Definition der Funktion 
wird durch FNEND abgeschlossen, wobei 
dort der Funktionswert angegeben wird. 
Die Funktion kann auch vorzeitig abgebro¬ 
chen werden, indem mit ,,FNRETURN 
funktionswert” eine Rückkehr veranlaßt 
wird. Beispiele: 

100 DEF FNFAC(I) 

200 IF 1=0 THEN FNRETURN 1 
300 FNEND FNFAC(I-1)*I 

400 PRINT FNFAC(6) 
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100 DEF FNREP$(I$,I) 'Aufbau eines 
wiederholenden Strings 
200 J$=” ” 

300 IF I<=0 THEN FNRETURN 

400 FOR J=1 TO I 

500 J$=J$+1 

600 NEXT 

700 FNEND Ji 

800 PRINT FNREP$(“TEST”,5) 

EXP 

Exponentialfunktion. 

EXP(Oergibt 2.7182 .. . . 


FRE 

Damit läßt sich der Restspeicher für Va¬ 
riable und Programm, falls als Dummypa¬ 
rameter eine Variable angegeben wird und 
der Restspeicher für Strings ermitteln, falls 
eine Stringvariable als Parameter verwendet 
wird. 

FRE(X) gibt den Variablen und Programm¬ 
restspeicher aus. 

FRE(X$) den Restspeicher für Strings. 


INT 

Ermitteln des ganzzahligen Anteils von 
Zahlen. 

20 C=INT(A) 

Falls A den Wert 4.56 besitzt, erhält C 
den Wert 4. 


LOG 

Ermitteln des natürlichen Logarithmus 
(d.h. zur Basis e=2,7. . .) einer Zahl. 
LOG(EXP(l)) ergibt deshalb den Wert 1. 


SGN 

Ergibt +1, falls das Argument größer als 
0 ist. Null, falls es gleich 0 ist, und —1 , 
falls das Argument kleiner als 0 ist. 
SGN(56.5) ergibt+1. 


SQR 

Berechnen der Quadratwurzel. Das Argu¬ 
ment darf nicht kleiner als 0 sein. 

SQR(2) ergibt 1.4142 .. . . 

RND 

Erzeugen einer Pseudozufallszahl zwischen 
0 und 1. Dazu benötigt RND einen 
Dummy-Parameter. Ist der Wert kleiner 0, 
wird die RND-Sequenz initialisiert. Ist 
das Argument 0, so wird der vorhergehen¬ 
de Wert übermittelt. Ein Argument größer 
als 0 liefert den nächsten RND-Wert in 
der Sequenz. 

10 R=RND(I) ’in R steht eine Zahl zwi¬ 
schen 0 und 1. 

RANDOMIZE 

Dies ist keine Funktion, vielmehr kann 
damit ein zufälliger Startpunkt einer 
Pseudo-Zufallszahlenfolge eingestellt 
werden. 


P. Stringverarbeitung 
ASC 

Der Dezimalwert eines ersten Zeichens in 
einem String wird übergeben. 

10 A=ASC(A$) 

mit A$=“A” erhält A den Wert 65. 

CHR^ 

Hier wird gerade umgekehrt das Zeichen 
übergeben, daß durch den dezimalen Wert 
des Argument dargestellt wird. Die Codie¬ 
rung erfolgt hierbei in ASCII. 

10 A$=CHR^(66) 

A^ beinhaltet das Zeichen B. 

LEFT^ 

Erhält zwei Parameter. Der erste Parame¬ 
ter ist ein String. Der zweite Parameter 
gibt die Anzahl der Zeichen an, die vom 
linken Rand des Strings an gezählt überge¬ 
ben werden sollen. 
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30 B$=LEFT$(“STRING”,2) 

erhält hier die Zeichenfolge “ST”. 

LEN 

Damit kann die Länge eines Strings ermit¬ 
telt werden: 

40 X=LEN(S$) 

In X steht die Anzahl der Bytes, die S$ 
enthält. 

MlDi 

MID^ benötigt drei Parameter. Der erste 
gibt den String an, der zweite bestimmt 
die Startposition, der dritte die Anzahl 
der Zeichen, die von da an verwendet wer¬ 
den sollen. 

50 A$=MID$(B$,5,6) 

A$ erhält 6 Zeichen, beginnend beim 5ten 
Zeichen des Strings B$. 

MID$ darf auch auf der linken Seite ver¬ 
wendet werden. 

RIGHT$ 

Funktioniert wie LEFT^, nur werden die 
Zeichen vom rechten Rand hier verwendet. 

STR^ 

Es wird der String übergeben, dessen nu¬ 
merischer Wert in Klammern steht. 
10Ci=STR$(7.8) 

C$ erhält den String “7.8”. 

VAL 

Gegenteil von STR$: Es wird der numeri¬ 
sche Wert eines Strings übergeben. 

20 A=VAL(“3.4”) 

A erhält den Wert 3.4. In Basic-Program¬ 
men können auch sedezimale Konstanten 
(Hex-Zahlen) verwendet werden. Sie wer¬ 
den angegeben, indem das Zeichen & vor¬ 
angestellt wird: 

B=&400 ’B erhält den Wert 1024. 

INSTR 

Dient zum Suchen von Strings. Dazu wird 
als erster Parameter der String angegeben. 


in dem der zweite Parameter, der Such¬ 
string, gefunden werden soll. Zusätzlich 
können dann noch eine Startposition und 
eine Länge angegeben werden. 

Beispiele:- 

INSTR(“123456789”,“456”) ergibt 4 

INSTR(“123456789”,“654”) ergibt 0 

INSTR(“1234512345”,“34”) ergibt 3 

INSTR(“1234512345”,“34”,6) ergibt 8 

INSTR(“1234512345”,“34”,6,2) ergibt 0 


JO. Sonstige Befehle 
END 

Beendet die Programmausführung und 
kann irgendwo innerhalb eines Basic-Pro- 
gramms stehen. 

REM 

Kennzeichnet, daß die Zeile eine Kom¬ 
mentarzeile ist. Für REM kann auch das 
Zeichen ,, ’ ” verwendet werden. 

10 REM Kommentarzeile 
20 A=B ’Kommentar 

STOP 

Wie END, nur daß BREAK @ LINE . . . 
ausgegeben wird. 

USR 

USR erlaubt ein Maschinenunterprogramm 
aufzurufen. Es wird das Programm über 
die Sprungadresse bei „USR:” aufgerufen. 
Um den Parameter zu erhalten, muß das 
Unterprogramm auf Adresse 300H + 27H 
gerufen werden. Die Adresse des Parame¬ 
ters steht dann im Registerpaar DE. Um 
die Information zurück zu übertragen, 
wird das Unterprogramm auf Adresse 
300H + 2AH aufgerufen. Das niederwer¬ 
tige Byte des Ergebnisses wird dazu im Re¬ 
gister B übergeben und das höherwertige 
im Register A. Zur Rückkehr ins Basic- 
System wird ein RET-Befehl ausgeführt. 

10 A=USR(B) 

20 PRINT A 
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IL Befehle ßr ASCII-Ein!Ausgabe von CTRL-S 

Programmen 


Anhalten der Ausgabe 
von Daten. 


ASAVE 

Bei Ausführung des Befehls wird das im 
Speicher vorhandene Basic-Programm in 
ASCII-lesbarer Form über den Stanzkanal 
(TTY) ausgegeben. 

ALOAD, ALOADC, AMERGE, AMERGEC 
Zum Laden von Programmen, die in ASCII 
geschrieben sind, also nicht in maschinen- 
intemer Form. Jede Zeile muß mit einer 
Zeilennummer beginnen und mit einem 
CR beendet sein. Das Einlesen wird entwe¬ 
der durch ein CTRL-Z im Eingabetext oder 
durch ein EOF des LESE-Unterprogramms 
beendet. ALOAD löscht ein zuvor vorhan¬ 
denes Programm, MERGE mischt die an- 
kommenden Zeilen mit dem vorhandenen 
Programm. Der Unterschied zwischen 
„A . . .” und „A . . . C” Befehlen liegt in 
der Art der LESER Behandlung. ,,A . . .C” 
setzen einen steuerbaren LESER voraus, 
und nach der Eingabe einer jeden Zeile 
wird diese ins Internformat übersetzt. 

„A . . .”Befehle lesen bis zum Ende und 
konvertieren erst, nachdem das gesamte 
Programm eingelesen wurde. Dadurch wird 
für Programme kurzfristig mehr Speicher 
benötigt. 


12. Steuerzeichen 


COMMA , Zur nächsten TAB-Posi- 
tion; oder Trennzeichen. 


SEMI-COLON ; Nicht fortschreiten. 

COLON : Für mehrere Anweisun¬ 

gen in einer Zeile. 


RUBOUT 7FH Löschen des eingegebe¬ 
nen Zeichens in „\\“. 


CTRL-Q 

Fortfahren bei der Aus¬ 
gabe. 

CTRL-C 

Beenden der Ausführung 
des Basic-Programms. 

CTRL-U 

Löschen der gerade ein¬ 
gegebenen Zeile. 

CTRL-X 

Zum Monitorprogramm 
zurück. 

CTRL-0 

Unterdrücken der Kon- 
solausgabe. 

CTRL-R 

Ausgabe der aktuellen 
Zeile ohne Löschzeichen. 

CTRL-T 

Während des Programm¬ 
laufs kann dadurch die 
gerade abgearbeitete 
Zeilennummer ausgege¬ 
ben werden. 


13. Operatoren 

In der Reihenfolge ihrer Bearbeitung 
(hierarchisch geordnet): 


() 

Klammer 

t 

Exponentialoperator 

- 

Negation 

♦ 

Multiplikation 

/ 

Division 

+ 

Addition 

— 

Subtraktion 

= 

Gleichheit 

<> 

Ungleich 

< 

Kleiner als 

> 

Größer als 

< = 

Kleiner/Gleich 

> = 

Größer/Gleich 

NOT 

Logisches NICHT 

AND 

UND 

OR 

ODER 
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4.3 Programmbeispiel ELIZA 

ELIZA ist ein Programm, das künstliche 
Intelligenz simulieren soll. Dieses Pro¬ 
gramm wurde ursprünglich von Weizen¬ 
baum in LISP geschrieben. Es macht aus 
dem Computer einen Psychologen, der 


einem Patienten Fragen stellt.AZ?Z?. 4.3-1 
zeigt das Listing des Programms. Daß auch 
schon durch ein so einfaches Programm 
interessante Gespräche entstehen können, 
zeigt das Beispiel eines Dialogs inAbb. 4.3-2. 
Das Programm wurde in [8, 9] ausführlich 
beschrieben. 


1 

REM 

ELIZA 


p 

REM 

NüdlfLzlerte Version aus 

Creahlve Computing 

3 

REM 

JUL/AUG 1977 

4 

REN 



5 

REM 



6 

REN 

BETRIEBSMITTELSTECKBRIEF 


7 

REM 



8 

REM 

COMPUTERTYP: 

Z80 S100 SYSTEM 

9 

REM 

PERIFERIE: 

DATENSICHTGERAET 


10 REN SPEICHERBEDARF: 

11 RFM BESONDERE BASIC BEFEHLE: 

12 REN 

13 REM 

14 REN GRENZEN DER ANWENDUNG: 

15 REM BEMERKUNGEN: 

16 REN 

17 REM 

90 CLEAR 500'STRING SPACE FESTLEGEN 


12K FUER BASIC U. 10K FUER ELIZA 

LINE INPUT,RESTORE n,INRTR 
NID$,LEFT$,RIGHT$,LEN 

12K ZAPPLE BASIC VON TDL 


100 DIM S(38) ,R(;38:> ,N(38:) 

110 N1=:33:N2=-:12:N3 = 115 
120 RESTORE 2530 
130 FOR X--1 TO NI 

140 READS(X),L: R(:X)=S(X): NCX) =S(X)+L-1 
150 NEXT X 

160 PRINT "Hl, I AM ELIZA TELL ME YOUR PROBLEM" 

170 LINE INPUT I* 'EINGABE EINER ZEILE VON BENUTZER 
130 I$=" "+I$+" " 


190 REN BESEITIGEN VON APOSTROPHEN 
200 FOR L=1 TO LEN(I$) 

210 IF NID$(:i-^,L,l " THEN I$-^LEFT$ (1$ , L-1 :>+RIGHT$ C1$ , LEN (I$:>-L) : GOTO 

210 

220 NEXT L 

230 IF THEN PRINT "PLEASE DONT REPEAT YOURSELF":GOTO 170 

270 REN SUCHEN OES ERKENNUNGSWORTES 
280 RESTORE 
2 90 S==0 

300 FOR K“1 TO NI Abb. 4.3-1 Listing von ELIZA 

205 IF 3>0 THEN 340 
310 READ K$ 

320 A-INSTR(:i$,K^) 

330 IF A06 THEN S-K : T==:A: F$=K$ 

340 NEXT K 

365 IF S>0 THEN K=S:L=T:GOTO 400 

370 K-Nl:GOTO 573 

390 RFM KONJUGATIONS PHASE 

’4 0 0 RESTORE 12 03 

410 "+RIGHT$CI$,LEN<I$)-LEN(F$)-L+1 :» 

4 20 FOR X=^l TO N2/2 
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m3Ü read 

4 40 FOR L^l TO LEN(C$:) 

4 50 IF L-!LEN(S$:)>LEN(C$) THEN 510 

480 IF MIO'liCC^,L,LEN(S$:) )<>S$ THEN 510 

490 r.$-“-LEFT$(;C^,L-l )+R$+R1GHT$(C$ ,LENC0$)-L-LENCB^)+1 ) 

4 95 l:-l+-len(:r$:) 

500 GOTO 540 

510 IF IHLENc:R$;)>LEN(C-^) THEN 540 
520 ;iF MID^t(C$,L,LEN(:R$;);)<>R$ THEN 540 

530 C^fc=^LEFT$(;C$,L-l )-i-S^+RIGHT $((:$, LEN ()-L-LEN C R$)-H ) 

540 NEXT L 
550 NFXT X 

555 IF Nl[)$(C^|i,2,1 :) = " "THEN C$=^R16HT$(,LEN<0$)-1 ) ' EIN SPACE IN ANTWORT 
560 REM ANTWORTSATZ FINDEN 
570 RESTORE 1300 

580 FOR X = 1 TO R<K:):REAÜ F^:NEXT X' POSITIONIEREN 
590 R(K)=--R(K)+1 :1F RCK)>N(K) THEN R(:K)=S(K) 

600 IF INSTR<F$,"*")-=0 THEN PRINT F$: P$=I$: GOTO 170 
610 A:^INSTR(F$, "*") 

620 PRINT LEFT$(F$,A-1);C$;RIGHT$(F$,LEN(F1i)-A) 

630 GOTO 170 
1000 REM KEYWORDS 

1050 DATA"CAN YOU","CAN I","YOU ARE","YOURE","1 DONT","l FEEL" 

1060 DATA "WHY OONT YOU","WHY CANT I","ARE YOU","I CANT","I AM","IM " 
1070 DATA"YOU ","1 WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY" 

1080 0ATA"NANE","CAUSE","SORRY","OREAM","HELLO","HI ","NAYBE" 

1090 DATA" NO","YOUR","ALWAYB","THINK","ALIKE","YES","FRIEND" 

1100 DATA"COMPÜTER","ELIZA","MONEY","NOKEYFOUNO" 

1200 REM KONJUGATIONEN 

1230 DATA" ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY " 

1235 DATA" IVE "," YOUVE "," IM "," YOURE " 

1300 REM ANTWORTEN 

1330 DATA"DON'T YOU BELIEVE THAT I CAN*" 

1340 DATA"PERHAPS YOU WOULO LIKE TO BE ABLE TO*" 

1350 DATA"YOU WANT ME TO BE ABLE TO*" 

1360 OATA"PGRHAPS YOU OON'T WANT TO*" 

1365 DATA"DO YOU WANT TO BE ABLE TO*" 

1379 DATA"WHAT MAKES YOU THINK 1 AM*" 

1380 DATA "DOEB IT PLEABE YOU TO BELIEVE I AM*" 

1390 OATA"PERHAPS YOU WOULD LIKE TO BE*" 

1400 DATA"DO YOU SOMETIMES WISH YOU WERE*" Abb. 4.3-1 

1410 DATA"DON^T YOU REALLY*" 

1420 DATA"WHV DON'T YOU*" 

1430 OAT.A"DO YOU WISH TO BE ABLE TO*" 

1440 nATA"DOEB THAT TROUBLE YOU?" 

1450 DATA"TELL ME MORE ABOUT SUCH FEELINGS." 

1460 DATA"DO YOU OFTEN FEEL*" 

1 470 i:)ATA"00 YOU ENJOY FEELING*" 

1480 DATA"DO YOU RF.ALLY BELIEVE I DON'T*" 

1490 DATA"PERHAP3 IN GOOO TIME I WILL*" 

1500 DATA"DO YOU WANT ME TO*" 

1510 DATA"00 YOU THINK YOU SHOULO BE ARLE TO*" 

1520 DATA"WHY CAN'T YOU*" 

1530 0ATA"WHY ARE YOU INTERESTEO IN WHETHER OR NOT X AM*" 

1540 DATA"WOULD YOU PREFER IF I WHERE NOT*" 

1550 OATA"PERHAPS IN YOUR FANTASIES I AM*" 

1560 DATA"HOW DO YOU KNOW YOU CAN'T*" 

1570 ::)ATA"HAVE YOU TRIED?" 

1580 DATA'TERHAPS YOU CAN NOW*" 

1590 DATA"DID YOU COME TO ME BECAUBE YOU ARF*" 

1600 i:)ATA"HOW LONG HAVE YOU BEEN*" 

1610 DATA"00 YOU BELIEVE IT IS NORMAL TO BF*" 
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1626 

1636 

1646 

1556 

1666 

1670 

1686 

1690 

1706 

1710 

1726 

1730 

1740 

1750 

1/66 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1370 

1880 

1890 

1900 

1910 

1920 

1930 

1946 

1950 

I960 

1970 

1986 

1990 

2000 

2310 

2020 

2030 

2040 

2050 

2060 

2070 

2086 

2090 

2100 

2110 

2120 

2130 

2146 

2150 

2166 

2170 

2186 

2190 

2 206 

2210 

2220 

2238 


4.3 Programmbeispiel ELIZA 


DATA"DO YOU ENJOY BEING*" 

OATA"WE WERE 0I3CU3SING YOU— NOT ME." 

DATA"OM, I*" 

OATA"YOU^RE NOT REALLY TALKING AHOUT ME, ARE YOU?" 
DATA"WHAT WOULD IT MEAN TO YOU IF YOU GOT*" 

DATA"WMY DO YOU WANT*" 

DATA"GUPPOSE YOU SOON GOT*" 

OATA"WHAT IF YOU NEUER GOT*" 

DATA"1 30NET1MES ALSO WANT*" 

DArA"W'rlY DO YOU A3K?" 

DATA'‘DOEB THAT OUESTION INTEREST YOU?" 

DATA"WHAT ANSWER WOULO PLEASE YOU THE MOST?" 
DATA"WHAT DO YOU THINK?" 

DATA"ARE SUCH OUESTIOiNS IN YOUR MIND OFTEN?" 
rATA"WH»'-^T IS THAT YOY REALLY WANT TO KNOW?" 
DATA"HAVe YOU ASKEO ANYONE ELSE?" 

DATA"HAVE YOU ASKED BUCH O.UEBTIONS BEFORF?" 
OATA"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?" 
DATA"NAMES DON'T INTEREST ME." 

DATA"I DON^T CARE ABOUT NAME3— PLEASE GO ON." 

DATA"IS THAT THE REAL REASON?" 

DATA"DOM'T ANY OTHER REA30NS COME TO MINO?" 
DATA"DOES THAT REASON EXPLAIN ANYTHING ELSE?" 
OATA"WHAT OTHER REASONS MIGHT THERE BE?" 

DATA"PLEASE DON'T APOLOGIZE!" 

DATA"AP0L0GIE3 ARE NOT NECESSARY." 

DATA"WHAT FEELINGS DO YOU HAUE WHEN YOU APOLOGIZE?" 
DATA"DON'T BE SO DEFENSIVE!" 

DATA"WHAT DOES THAT DREAM SUGGEST TO YOU?" 

DATA"DO YOU DREAM OFTEN?" 

DATA"WHAT PERSONS APPEAR IN YOUR DREAMS?" 

DATA"ARE YOU DISTURBED BY YOUR DREAMS?" 

DATA"HOW DO YOU DO ... PLEASE STATE YOUR PROBLEM." 
OATA"YOU OON^T SEEM QUITE CERTAIN." 

DATA"WHY THE UNCERTAIN TONE?" 

DATA"CAN'T YOU BE MORE POSITIVE?" 

DATA"YOU AREN'T SURE?" 

OATA"DON'T YOU KNOW?" 

DATA"WHY NO*" 

DATA"DONT SAY NO ITS ALWAYS SO NEGATIVE" 

DATA"WHY NOT?" 

DATA"ARE YOU SURE?" 

DATA"WHY NO?" 

DATA"WHY ARE YOU CONCERNED ABOUT MY*" 

DATA"WHAT ABOUT YOUR OWN*" 

OATA"CAN'T YOU THINK OF A SPECIFIC EXAMPLE?" 
DATA"WHE’N?" 

DATA"WHAT ARE YOU THINKING OF?" 

DATA"REALLY, ALWAYS?" 

DATA"DO YOU REALLY THINK SO?" 

DATA"BUT YOU ARE NOT SURE YOU*" 

OATA"DO YOU DOUBT YOU*" 

DATA"1N WHAT WAY?" 

ÜATA"WHAT RESEMBLANCE DO YOU SEE?" 

DATA"WHAT DOES THE BIMILARITY SUGGEST TO YOU?" 
DATA"WHAT OTHER CONNECTIONS DO YOU SEE?" 

DATA"COULD THERE REALLY BE SOME CONNECTIONS?" 
DATA"l-IOW?" 

r)ATA"YOU SEEM (S'.UITE POSITIVE." 

OATA"ARE YOU SURE?" 

DATA"1 SEE." 

OATA"I UNDERSTAND." 


Abb. 4.3-1 
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2240 DATA '‘WHY DO YOU BRING UP THE TOPIC OF FRIENDS?" 

2250 0ATA"i:)O YOUR FRIENDS WORRY YOU?“ 

2260 DATA''DO YOUR FRIENDS FICK ON YOU?“ 

2270 DATA“ARE YOU SURE YOU HAVE ANY FRIENDS?“ 

2280 DATA“DO YOU IMPOSE ON YOUR FRIENDS?” 

2290 DATA“PERHAPS YOUR LOVE FOR FRIENDS NORRIES YOU.“ 

2300 DATA“DO COMPUTERS WORRY YOU?“ 

2310 OATA“ARE YOU TALKING AÜOUT MG IN PARTICULAR?” 

2320 DATA“ARE YOU FRIGHTENED BY MACHINES?“ 

2330 DATA“WHY DO YOU MENTION COMPUTERS?“ 

2340 r)ATA“WIIAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?“ 
2350 DATA“DON'T YOU THINK COMPUTERS OAN HELP PEOPLE?“ 

2360 DATA“WIIAT IS IT ABOUT MACHINES THAT WORRIES YOU?“ 

2370 DATA“SAY,DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?“ 

2380 DATA“WHAT DOEB THAT SUGGEBT TO YOU?“ 

2390 DATA“I SEE“ 

2400 DATA'M'M NOT SURE I UNDERSTAND YOU FULLY“ 

2410 DATA“COME COME ELUCIDATE YOUR THOUGHTS“ 

2420 DATA“CAN YOU ELABORATE ON THAT ?“ 

2430 DATA “THAT IS QUITE INTERESTING.“ 

2440 DATA “WHY DO YOU HAVE PROBLEMS WITH MONEY?“ 

2450 DATA “DO YOU THINK MONEY IS EVERYTHING?“ 

2460 DATA “ARE YOU SURE THAT MONEY IS THE PROBLEM?“ 

2470 DATA “I THINK NE NANT TO TALK ABOUT YOU,NOT ABOUT ME“ 

2480 DATA "WMATS ABOUT ME?“ 

2490 DATA “WHY DO YOU ALNAY3 BRING UP MY NAME?“ 

2530 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 
2 540 DATA 23,4,23,4 ,32,3,35,5,49 ,9,40,9,40 ,9,40 ,9,40 ,9,40,9 
2550 DATA 49,2,5 1 ,4 ,55,4 ,59,4 ,63,1 , 63 ^1 ,64 ,5,69,5,74 ,2,76,4 
2560 DATA 39,3,33,7,90,3,93,6,99,7,116,3,113,3,106,7 

Abb. 4.3-1 


RUN 

HI, I AM ELIZA TELL ME YOUR PROBLEM 
? I AM A COMPUTER 

DID YOU COME TO ME BECAUSE YOU ARE A COMPUTER 

? YES, E3ECAUSE 1 FEEL ALONE 

TELL ME MORE ABOUT SUCH FEELINGS. 

? THERE IS NOT ENOUGH PERIPHERIE 
NHY NO T ENOUGH PERIPHERIE 
? BECAUSE THERE IS NO MONEY 
IS THAT THE REAL REASON? 

? PERHAPST, BUT YOU ARE ALSO A COMPUTER 
NHAT MAKES YOU THINK I AM ALSO A COMPUTER 
? YOUR BEHAVIOR 

WHY ARE YOU CONCERNED ABOUT MY BEHAVIOR 
? BECAUSE YOU SPEAK NOT CORRECT 
NE NERE DISCUSSING YOU— NOT ME. 

? THATS RIGHT 

SAY,DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS? 

? SOMETIMES 

WHAT DOES THAT SUGGEST TO YOU? 

? NOTHING 

DONT SAY NO ITS ALNAYS SO NEGATIVE 
? YOU SAY THIS NOT 1 
OH, I SAY THIS NOT YOU 
? YES 

ARE YOU SURE? 

? YES VERY SURE 
I SEE. 


Abb. 4.3-2 Beispiel einer „Sitzung“ mit ELIZA 


5 Anhang 


5.1 ZSOOO-Basic 

Als Ergänzung zum beschriebenen RDK- 
Basic soll hier ein ähnliches Basic für den 
Z8000 kurz erläutert werden. Eine mögli¬ 


che Hardware ist in [6] ausführlich be¬ 
schrieben. Der Befehlssatz des Z8000 in 
[\Qi\.Abb. 5,1-1 zeigt das komplette Li- 
sting des Basic-Interpreters, der auch ein 
kleines Monitorprogramm enthält. 


BASSYS 



MACRO 

8/8000 Z8000 ASSEMBLER 

0 0 00 



MODULE •BASSYS'? 

0000 



PAGE 69? 


0 0 00 



X MONITOR EUER 

Z8000 

0000 



% RDK 800306 


000 0 

0 00 0 


WORD: 0? 


0 0 02 

'40 0 0 


WORD: '40 0OH? 

%FCW RESET 

0 0 0^ 

0010 


WORD: START1? 

ZPC RESET 

0 0 06 

0000 


WORD: 0? 


0 0 OB 

'40 0 0 


WORD: -4 0 0 OH? 

%PSEUDO CODE 

00 OA 

02B8 


WORD: PSEUDO? 


OOOC 

'400 0 


WORD: '40 0OH? 


0 0 OE 

02E0 


WORD: SYSCALL? 

%SYSTEM CALL 

0 010 





0010 



START1: 


0 010 

21 OE 

IFFE 

LD RlS^p-MEFE? 

%SYSTEM SP 

0 01^1 

2101 

0000 

LD RlfO? 

%FCW INIT 

0 018 

6F01 

1E20 

LD FCWSTOs^Rl? 

ZNORM MODE 

0 0 IC 

2101 

IFÜO 

LD RlflFOOH? 

%USER STACK 

0 020 

6F01 

lElE 

LD REGSTO(30)f 

RI? 

0 02'{ 

2101 

0 098 

LD Rlr98H? 


0 028 

3B16 

FF 06 

OUT =II:FF06^»R1? 

%INIT UART 

0 02C 

2101 

0 0 OB 

LD R1.*0BH? 


0 030 

3B16 

FFO'f 

OUT :8=FF0'4»*R1? 


0 03^1 

2101 

OOOD 

LD RlfODH? 

%TESTAUSGABE UART 

0 038 

3B16 

FF 0 0 

OUT tFFOOvRl? 

%OK NUN INIT SP ETC 

0 03C 

2101 

00 00 

LD RlfO? 


0 0^0 

ZDID 


I...DCTL PSAPOFF y 

RI ? 

0 0'12 

2101 

17FE 

LD Rlf#17FE? 


0 0 

7i:)lF 


LDCTL NSPOFFyRl?% STACK l.ADEN 

0 0'48 



loop: 


0 0'IB 

DEFA 


CAI...R SPACE? 


OO'IA 

DEF'B 


CALR SPACE? 


0 0 

7603 

0272 

LD RSy'MXTl? 


0 0!:H) 

DEFA 


CALR PRINTll? 


0 052 



LOOPMAIN: 


0 052 

2101 

0 03E 

LD Rly'>'? 


0 0?^6 

DE6'} 


CALR CO? 


0 05B 

DF OB 


CALR e(;:ho? 

%IN RI ZEICHEN 

0 05A 

OBO1 

0 0'4C 

CP Rly‘L‘? 

%LOAD 

0 05E 

5E06 

0 09C 

JP ZRyLADEN? 


0 062 

OBül 

0 0'42 

CP Rly'B'? 

/.BASIC STARTEN 

0 066 

5E06 

0B66 

JP 7RySTART? 
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0 06A 
0 06E 
0 072 
0 076 
0 07A 
0 07Ei: 
0 0B2 
0 0B6 
0 OBA 
OOBE:: 
0 092 
0 096 
0 098 
0 09A 
Ü09C 
0 09C 
0 09C 
0 09C 


0B0;l 

5E06 

OBOil. 

5E06 

obo:l 

5E06 
OBO :i. 
5E06 
OBO 1 
5E06 

21 0 ;l 
DEiy\ 
DFf-12 
EBOB 


OO-^E 
O-^BC 
0 O^-M- 
0190 
00^5 
OlBB 
0 0^7 
0 0E2 
0 052 
OOE-'I 
0 03F- 


CP‘ Rly 'N' t 
JP ZRfRSlEiRTf 
CP Plv'D'J 
JP 7F<rDISPLAY? 

CP Rly'E'? 

JP ZFÜfENTER* 

CP Rlv'C? 

JP ZRrCÜ? 

CP RIm'R'? 

JP 7R>REGISTER? 

LD RIm'?'? 

CAI...R CG? 

CALP. CRLFlll? 

JR LOÜPMAIN? 

% EINZELNE BEFEHI...E 


ZDISPLAY A TG B 

ZENVER 

%GG 


laden; 


%L.ADEN BINAER 
%NAi!.;il ADR EXPP 


0 09C 

DF'FD 


CAI.R EXPRll? 7.IÄ'5 Ai:)RESSE 

0 09E 



%WARTEN NÜI..L FF FÜI..GE 

0 09E 



LPL.ADl; 

0 09E 

DE92 


CALR CI? 

OOAO 

OBO 1 

0 0 0 0 

CP RlvO? 

OOA^ 

EEFC 


JR NZyLPLADl? 

0 0A6 



LPI..Ai:)2; 

noA6 

DE96 


CALR CI 

0 0A8 

OBOl 

OOFF 

CP Rl»0F-f H? 

BASSYS 



NACRO 8/BOOÜ Z8000 

OOAC 

5E0E 

0 0A6 

JP NZyLPLAD2? 

OOBO 



LPLADS; 

OOBO 

DE9B 


CALR CI? 

0 0B2 

OBOl 

OOFF 

CP RlfOFFH? 

0 0FÜ6 

5E06 

OOBO 

JP ZRvLPLADB? 

OOBA 

OBOl 

000 0 

CP RlyO? 

OOBE 

5E0E 

0 09E 

JP NZ y LPLAD 1? %FEF^LER 

0 0C2 



%I...AENGE FIRST 

0 0C2 



% 0 FF FF F-F 0 LL IJ-I DATA 

0 0C2 

DEA-4 


CALR CI? 

OOC^ 

A09E 


LDB RL6fRLl? 

0 0C6 

DEA6 


CALR CI? 

0 0 CB 

A096 


LDB RF^6yRLl? 

OOCA 



MLPLAD; 

00 CA 

DEAB 


CALR CI? 

OOCC 

2E59 


LDB R5'^yRLl? 

00 CE 

A950 


INC Fs’5yl? 

OODO 

AB60 


DEC R6yl? 

0 0D2 

5E0E 

OOCA 

.JP NZyMLPLAD? 

0 0D6 

DF71 


CALR CRLFlll? 

0 ODB 

A151. 


I..D RlyFi:5? 

0 ODA 

DF--^r" 


CALR PRRISP? 

OODC 

DF7^ 


CALR CFüLFlll? 

OODE 

5E0B 

0 052 

JP LGÜPMAIN? 

0 0E2 




0 0E2 




0 0E2 




0 0E2 



gü: 

0 0E2 

DF70 


CALR EXPRll? 

OOE^t 

A15E 


LD Rl^yRS? 

0 0Fi;6 

6101 

ie:20 

I..D RlyFCWSTO? 
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5.1 Z8CX)0-Basic 


OOEA 

70 lA 


LDCTI... FCWfRi; 

"7FCW 

LADEN !!! 

OOEC 

SC 01 

OOOO lEOO 

LOh ROH^ilECSTOv 

•14? %NÜR 

RO BIS RI3 !! 

0 OF2 

1EE8 


JP RI41^; 



OOF-^ 






ÜOF'i 



REGISTER? 



OOF-^ 




%NICHT 1 

ALLE GUEL.TIG 

OOF-'I 




%FALLS i 

n:i:cht direkt 

0 0F4 




7,ZU REG 

SPRG 

OOF't 

DFBO 


CALR CRLFlll? 

ZREGSTÜ 

AUSG. 0 BIS IS 

0 OF6 

7603 

OIEE 

LO RSy'MXTFCW? 



ÜOFA 

0F4F 


CALR PRINTli; 



0 0 FC 

61 01 

ie:2o 

I...0 RlyFCWSTOy 



0 1 0 0 

0F62 


CALR PRRlSPy 



01.02 

DF87 


CALR CRLFlll? 



0.1.0^ 

7603 

013C 

LD R3ytTXT2? 



01.0B 

0FS6 


CALR PRINTll? 



01.0A 

7604 

lEOO 

LD R4y1^REGSTÜ? 



01. OE 

21 OS 

0 008 

LD RSy8? 



01.12 



LOPA? 



0112 

2141 


LD RlyR41'; 

ZREGS 


011-^ 

DF6C 


CALR PRRlSPy 



0116 

A941 


INC R4y2? 



0118 

ABSO 


DEC RSyl5 



01 lA 

e:efb 


JR NZyLOPA? 



01 IC 

93F4 


PUSH RlS^yR4? 



OllE 

0F9S 


CALR CRLFlll? 



0120 

7603 

01 66 

LD RSy'MXTS? 



012^^ 

i:)F64 


CALR PRINTII? 



0126 

97F4 


POP R4yRlS^? 



0128 

21 OS 

0 0 08 

LD RSy8? 



012C 



LOPB: 



012C 

2141 


LD RlyR4'^? 



012E 

0F79 


CALR PRRISP? 



0130 

A941 


INC R4y2? 



0132 

AB50 


DEC RSyl? 



0134 

EEFB 


JR NZyLOPB; 



0136 

OFAl 


CALR CRLFlll? 



0138 

SE08 

0 0S2 

JP LOOPMAIN? 


Abb. 5.1-1 


BASSYS 





MACRO 8/8000 ZÖOOO 

ASSEMBLER 

1,2* 

lE 

013C 











013C 











013C 




TXT2: 







013C 

S230 

2020 

2052 

WORD: 

•RO RI 

R2 R3 

R4 

R5 

R6 

R7 ' ? 

0142 

3120 

2020 

5232 








0148 

2020 

2052 

3320 








014E 

2020 

5234 

2020 








01S4 

20S2 

3520 

2020 








01 SA 

S236 

2020 

2052 








0160 

3720 










0162 

ODOA 



WORD? 

ODOAH? 






0164 

0 0 0 0 



WORD? 

0 ? 






0166 




TXT3? 







0166 

S238 

2020 

•2052 

WORD? 

' R8 R9 

RIO Rll 

R12 

RI 3 

RI 4 

RI5 • 

016C 

3920 

2020 

5231 








0172 

3020 

2052 

3131 








0178 

2020 

5231 

3220 








017E 

20S2 

3133 

2020 








0184 

S231 

3420 

2052 








018A 

313S 










018C 

ODOA 



WORD: 

ODOAH? 
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0:1. BE 

0 00 0 


WniÄ’Dt Ot 


0190 





0 ;i.90 



d;i:sf-'1...ay t 

%A TQ B 

0:l.90 

DFC7 


CALR EXPFCLl ; 

XIN R5 :i:SK PARAM 1 

0 :l.92 

A:l.!56 


LD Fi;6rFi:5; 


0:19'^} 

DFC9 


calf;; E:xPFi::i..i.; 

%R6 ANFADR R5 ENDADR 

01.96 

DFD1. 


CALFÜ CF^LF:l.1.1.; 


0:1.9B 



MI..DÜP:I. : 


01.9B 

AI. 61. 


LD RlyR6f 


0 :I.9A 

DFAF 


calf;: PFi:Fi;i.BP? 


019C 

DF”A^1 


CAI...F^ SPACE ; 


01.9E 

21.03 

0 0 OB 

LD R3vBf 

ZACHI WERTE PR(.J ZEILE 

01. A2 



MLÜ0P2S 


0.1. A2 

21.6:1 


LD R1.yFi:6t5 


0 

DFB^ 


CALR PRFLISP; 


0 I.A6 

A96:l 


INC R6f2f 

%WÜRD 

0 ;i.AB 

AB30 


DEC R3y:i.; 


0.1.AA 

i=:ef"b 


JR NZyMLÜÜP2? 

ZACHTMAL 

01. AC 

DFDC 


CALR CRLF1.1.1.5 


01. AE 

BB65 


CP R5yF<6? 

%be:i: carry stop 

01.B0 

EFF3 


JR NCyMLÜüPI. ; 


01. B2 

DFi:)F 


CALR CRI...F:l.:L1.5 


0 IB'\ 

f^EOB 

0 052 

JP I..ÜÜPMAIN? 


0:I.Fi!B 





01. B8 



ZENTER ADR AyCR 

ENDE -y 

01. HÜB 



ENTERt 


OlBB 

DFDB 


CALR EXPR1.1.? 


0 I.BA 

AI. 56 


LD R6vR5S 

XR.6 IST ADR CBl.INTER 

01. BC 



Ei..anp t 


0 I.BC 

A:i.6:i 


LD R1mR6? 

%ADR AUSGEBEN 

01.BE 

DFC1. 


CAI...R PRFLI SP? 


01. CO 

DFB6 


CALR SPACE? 


01.C2 

2:1.61. 


LD R:l. yR61^? 

:ZINF1ALT 

0.1. C^ 

DFC^ 


CAI..R F:*RR1.SP? 


01.f.:6 

DFE2 


CALR EXPR:l.1.? 

ZWERT HBLi:i:N 

01. CB 

OB 02 

0 02D 

CP R2m'-'S 


OICC 

E60D 


.JR .ZRrMINI.IS? 


01.CE 

0B02 

0 02C 

CP R2v■^? 

ZMfJN MÜDTFY 

0 :l.D2 

E605 


JR ZRfCÜNTSK? 

zsFap sroF^F“ 

01.i:>'‘'F 

0B02 

0 020 

C'F:* R2 m • • ? 


01. DB 

5E0E 

0 052 

-JP N.7.yLBOPMAIN? 


OIDC 

2F65 


LD R6^VP5? 

zabbpe.](:(::hern 

o:i.i:)E 



CÜNTSFCt 


01. DE 

2:1.61 


LD R:l.MR6t? 


01 EO 

i;)F"AB 


CAI..R PRTR I.? 


0 :l.E2 

DFFV 


CALR CRLF:Ll l. ? 


0 I.E^1 

A96:l. 


INC F<6y2? 

::::WBRD 

01. E6 

FBEA 


JR FLBBP? 



BASSYS 



MACR(3 B/BOOO. ZBOOO ASSEMBLER 

OIEB 



MINUS? 

01E8 

DFFA 


CALR CRLF1.1.:l.? 

01.EA 

AB6:i 


DEC R6y2? 

01. EC 

EBE7 


..JR ELOGP? 

0:lee 



TXTFCWJ 

oi.ee 

'♦6-^3 

5720 3A20 

WÜFs’Dt 'FCW X •? 

OlF^ 

0000 


WORD: 0? 

01. F6 




01. F6 



crlf:i.i. 1.: 

o:i.F6 

2 i.o:i 

OOOD 

LD RlvOLHI? 

01.FA 

DF36 


CALR CO? 
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5.1 ZSOOO-Basic 


01 FC 

2101 

OOOA 

L[) RlyOAH? 


020 0 

5E08 

0390 

JP CO? 


020^ 





020'1 



EXPRllt %GET 

16BIT INTO R5 

020-^ 

2105 

0000 

LD R5yO? 


0208 



EXOO J 


0208 

DFE3 


CALR ECHO? 

%GET' CH AR TO RI 

020A 



Exil: 


020A 

DFFB 


CAI...R NIBBLE? 

%WANDEI...N 

020C 

E717 


JR CYfEX22? 

ZTERMINATÜR IN RI 

020F 

B359 

0 0 0-4 

SLA R5y4? 


021.2 

8515 


OR F^SfRl? 

%R1 OR R5->R5 

02:i.^ 

E8F<? 


JR EXOO? 


021.6 



NIBBLET 


0216 

0701 

OOFF 

AND Rl.OFFH? 


021.A 

Al 12 


I...D R2yRl? 

ZRETTEN 

021C 

0301 

0 030 

SUB Rly‘0'? 


0220 

9E07 


RET CY? 


0222 

Ob“! 01 

0017 

CP Rlv'Q'-'O* 

: 

0226 

8D85 


COMFLG CY? 


0228 

9E07 


RET CY? 


022A 

OBOl 

OOOA 

CP RlylO? 


022E 

8i:)85 


COMFLG CY? 


0230 

9E0F 


RET NC? 


0232 

0301 

0 0 07 

SUB R1m'A'~'9 

’-l? 

0236 

OBOl 

OOOA 

CP Rif 10? 


023A 

9E08 


RET? 


023C 



EX22t 


023C 

9E08 


RET ? 


023E 





023E 





023F 



PRRISP: 


023F 

DFDA 


CAI.. R PRTRl i 


02'40 

5E08 

0256 

.JP SPACE? 


02^^ 





02'l'1 



E(;:ho t 


02-^^ 

DF65 


CAIR CI? 


02-46 

DF5C 


CALR CO? 


02-48 

0A09 

ODOD 

CPB RLlfODH? 


02-^18 

9E0E 


RET NZ? 


02^F 

2101 

OOOA 

LD RlyOAH? 


025^)2 

5E08 

0390 

.JP CO? 


02156 





0256 





0256 



SPACE: 


0256 

2101 

0 020 

LD RIM‘ •: 


025A 

5E08 

0390 

.JP CO? 


025F 





025E 



7PRINT11 (RS) 

DRK BIS 0 

025F 



PRINl:i 1J 


025Ei: 

213-4 


LD R-4fR3^? 

%LOAD 2 BYTES 

0260 

OBO-4 

0000 

CP R-f+MO? 


026-^1 

9E06 


RET ZR? 

%ZERO DANN ENDE 

0266 

A0'b9 


LDB RLl-RH-4? 


0268 

DF6i;) 


CALR CO? 


026A 

A0C9 


LDB RLlfRL-'b? 


026C 

0b-6F 


CALR CO? 


026F 

A931 


INC R3v2? 
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BAS8YS 




MACRÜ 8/8000 78000 ASSEMBLEF^ 

0270 

E8F6 



JR PRINTll? 

0272 





0272 




TXT J t 

0272 

^;A38 

3030 

3020 

WORD: ' 7800 0 Fl’DK MONITOR. 1 ♦ 0 ‘ ; 

0278 

52^^ 

^820 

-^D'FF 


027E 



5220 


028't 

3:i.2E 

3020 



0288 

ODOA 



WORD: ODOah; 

028A 

0 0 0 0 



WORD: o; 

028C 





028C 




PRTRi: “/DRUCKE RI AUS 

028C 




78EDE7IMAL 

028C 





028C 

93F1 



PÜ8H R1.5'^fRl? 

028E 

A0:L9 



LDB Rl...:l rRH:l.; %FIRST HIGH 

0290 

DFFD 



CALR NMOI..IT? 

0297? 

97F:i 



POP R:lyR15'^^ 

07?9^+ 

DFFF 



CALR NMOI.JT; 

029<fv 

9E08 



RET: 

0298 





0298 




NMOUT: 

0298 

93F:l 



PUSH R:l5'^MR1^ 

029A 

B296 



RRB F\*l...ly2? 

029C 

B296 



RRB rl:Im2; 

029E 

DFFF- 



CALR outh; 

02A0 

97F:1 



POP R:i. *ri.5'^; 

02A2 




ni..iTH? 

02A2 

070 :i 

OOOF 


AND R:I.-0FH2 

02A6 

0 :i.oi 

0 030 


ADD R:i. y' 0 '; 

02AA 

OBO:t 

0 03A 


CP R:|y‘9' f;|. : 

02 AE 

E702 



..JR CYfOUTCH; 

02B0 

01.0 :i 

OOtl"/ 


ADD R:l.y'A' -‘9‘-l.; 

02B't 




OUTCH: 

02B^ 

5E08 

0390 


JP CO? 

02B8 





02B8 





02BB 




PSEUDO: 

02BB 

•57F0 

1E2^ 


POP INSTRWyR15^: 

0280 

fr/FO 

:l.E20 


POP FCWST0yR:L5'^; 

07?C0 

57F0 

1E22 


POP PCBT0yR1.•5'^; 


7603 

0362 


LD RSr'MXTPS; 

02C8 

DO 36 



CALR PRINTll.; 

02CA 

6:l,oi. 

:l.E2^ 


LD R:l. ylNSTRW; 

02CE 

D0^f9 



CALR PRRI.SP; 

02i:)0 

6;i.oi. 

:l E22 


LD RI. yPCSTO; 

02i;>^ 

ABI. :i 



DEC R1.y2; %GENAUER STAND 

02D6 

5F0 0 

023E 


CALL PRRISP; 

02DA 

DO 73 



CALR CRLFlli; 

02DC 

5E08 

0 052 


JP L..OOPMAIN; 

02E0 




SYSCAL.I...: 

02E0 

f5C09 

OOOF 

:l.EOO 

LDM l-iJEGSTOyROy 1.6; %SAOE REGS 

02E6 

97F2 



pcip R2 y r^: 15'^; %idi.”:nt 

02EB 

0702 

OOFF 


AND R2yOFFH; 

02EC 

57F0 

:l.E20 


POP FCWSTÜ «* R15^; “/DIREKT 

02F0 

S7F0 

;l.E22 


POP PCSTOyRI.51'; %ADR NORM/SYS 

02F^ 

OB 02 

000 :l 


CP R2y:i; “/CI NACH R:i 

02F8 

5E0E 

030 0 


JP NZySKi; 

02FC 

DF(:::i. 



CALR CIS 

02FE 

E820 



..JR fina; 

030 0 




SKI: 

030 0 

0B02 

0 0 02 


CP R2..2; %CO WON Ri 
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5.1 ZSOOO-Basic 


030'^ 

ih:eo2 



JE N7v8K2J 

0306 

DFIEiC 



CAI..R COS 

0308 

E81.B 



jr: f:t:naj 

030A 




8K2i 

030A 

0B02 

0 0 03 


CP R2m35 

o3oe:; 

e::eo2 



JR 

03:1.0 

DFBO 



CALR CSrSA? 

031.2 

Ei;8:i.6 



...IR F:rN.A5; 

BASSYS 




MACRO 8/80 0 0 .780 0 0 ASSEMBLER 





SX3 J 

031/1 

0B02 

OOFF 


CP R2r255? %TRAP 

03:1.8 

5E06 

OOF^ 


JP ZRvRECISTERt 

031.C 

0Bn2 

000 0 


CI“' R2.0 %rstar;t 

0320 

5E06 

0 052 


JP zrmlüüpmain; 

032'f 

93F2 



PUSH R1.5^ 

0326 

7603 

0350 


L.D RSv'MXTBRS 

032A 

DO 67 



CALR PRINTI.:).? 

032C 

97F2 



POP R2-R1.51^5 

032e:: 

A:!.21. 



LD RlfR2t 

0330 

D07A 



CAI...R PRRI SPt 

0332 

6:1.01. 

:l.E22 


LD RI.-PCSTÜ? 

0336 

AB:l. :l. 



DEC R:U2? %CEMAÜER STAND 

0338 

i:)07E 



CALR PRR:I.SP* 

033A 

DO A3 



CALR CRI. F:(.1.1S 

033C 

5E08 

0 052 


...ip i..nüPMA:i:N? 

03-^0 




FINAt 

03'I0 

6:1.0 0 

:l.E20 


LD RO,FCUJSTÜ? 

03^'^} 

7D0A 



LDCTI. FCWmRO? 

03-^16 

6:1.0 0 

:l.E0 0 


LD RO^REGSTO; “/HIER RO 7URUECK 

03'^A 

53FO 

:l.E22 


PUSH R1.5'^^PCSTÜ; %AUF NORM STK 

03-4E:; 

9E08 



RET? '/ODER SYS 

03lvi0 





0350 





0350 




rXTBR t 

0350 

2A53 

5953 

2045 

UiQRDt •)KSYS ERR NR AT ' s 

0356 

5252 

204E 

5220 


035C 

^1.5^ 

2020 



0360 

0000 



WORD t 0i 

0362 




TXTPSX 

0362 

2A50 

5320 

494E 

NORDS 'ÄpS INSTR AT '? 

0368 

5354 

5220 

4:1.54 


036E-: 

2020 




0370 

i) 0 0 0 



NORDS 0? 

0372 





0372 




CSTSA: 

0372 

3B:l.‘^ 

FF 02 


:i:n r:i.m#ffo2? 

0376 

0701. 

0 0 08 


AND Rl.fB? 

037A 

9E08 



RET? %7ERÜ FALLS KEIN ZEICHEN 

037C 





037C 





037C 




CIS %R1. TEMP 

037C 

3B:I.^ 

FF 02 


IN R.1.v*FF02? 

0380 

0701. 

0 0 08 


AND RI^8? 

038'^} 

E6FB 



JR ZRvCI? 

0386 

3B:I.4 

FF-n 0 


IN R1.#FF00? 

038A 

070 :l 

OOFF 


AND R:).-0FFH>i %PAR NEC ETC 

038E:: 

9E08 



RET ? 

0390 





0390 




COS 

0390 

93F-2 



PUSH .R15'^•F•^•2^ 

0392 




C01. S 


1.2.1E 


Abb. 5.] 


PmE 6 
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0392 3B2^ FF-02 

0396 0702 0 01.0 

039A E6FB 
039C 97F2 

039F 3B:l.6 FFOO 

03A2 9E08 

03A''+ 

03A'f 

03A^! 

OSA-'I 

03A'^ 

03A'f 

03A'^ 

03A'1 

03A^ 

03A^f 

03A^ 


IN R2m:||:FF02; 

AND R2y#:l.0? 

JR ZRvCÜI.? 

POP R2yR:L2;'^? Abb. 5.1-1 

OUT fl=FT 0 0yR1.5 

RET? 


% RDKBASIC EUER ZBOOO >k 

X 30 0302 U 1. . 0 

% COPYRIGHT 1930 
X BY ROLF-DIETER KLEIN )*< 


BA3SYB MACRO 3/3000 Z3000 ASSEMBLER 1.2.lE 


03A^I 



% DEFINITIONEN 

03A'i 



X RI IST AKKU 

03A'I 



X IST HI... 

03A't 



% R5 IST DE 

03A'F 



% R6 IST BC 

03A^ 




03A'F 

5E03 

0B66 

JP START? 

03 A3 

7F01 


cm: SC 1? 

03AA 

9E03 


RET? 

03AC 

7F02 


COllt SC 2? 

03 AE 

9E03 


RET? 

03B0 



CSTS1 

03B() 

7F03 


SC 3? 

03B2 

9E03 


RE T’ ? 

03B^ 




03B^ 



COMP t 

03B4 



%HI... MIT DE MGL 

03B^ 

3B^^ 


. CP R^yF:'5? 

03B6 

9E03 


RET? 

03B3 




03B3 



ignb: 

03B3 

2059 


LDB Rl.. lyR5'^? 

03BA 

0A09 

2020 

CPB FilLly' •? 

03BE 

9E0E 


RET NZ? 

03C0 

A950 


INC R5 y1? ZBYTE ZUGRIFF 

03C2 

Iü:3FA 


JR IGNB? 

03C21 




03C^ 



FINI? 

03C'f 

97F:l 


POP RioRI5t? ZDUMMY 

03C6 

DD'^O 


CALR FIN? 

03C3 

5E03 

096A 

..Ip QWHAT? 

03CC 




03CC 



TSTU: 

03CC 

DO OB 


CALR IGNB? 

03CE 

0209 

^O'FO 

SÜBB RLly'^OH? 

03D2 

9E07 


RET CY? 

03D^ 

EEl 0 


JR NZyTUl? 

03D6 

A950 


INC R5yl? 7. BYTE 

03D3 

DDA'1 


CALR PARN? 

03DA 

31'H 


ADD R'tyR'F? 

03DC 

5E07 

0'F6^1 

JP CYyQHOW? 

03E0 

93F-5 


PUSH R15'^«F;:5? 

03E2 

AD'f5 


EX Fv’^yR'l? 
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Di;)7C 


CALR s:i;zE? 

03E6 

BBJ5-4 


CP FHfRS? 

03EB 

!:JE()7 

09AC 

JP CYv(38nRRYt 

03EC 

6:L0'4 

1.216 

LD fhhxtend; 

03F0 

BBS'» 


SUB R'»yRS; 

03F2 

97FS 


POP RSyRlS'M? 

03F'^ 

9E08 


RET ? 

03F6 

03F6 



TMi: 

03F6 

0A09 

IBIB 

CPB RLIH BH? 

03FA 

BOBS 


COMF1..G cy; 

03FC 

9EÜ7 


RET cy; 

03FE 

A9S0 


INC R'ojlf 

O'^tOO 

760'l 

1 IDA 

LD R'»y1^MARBGN; 


ctoo 


LDB RHlyO; 

(HOA 

B3;l.8 


RLC Rlyl? 

O^OB 

B;l. :l.'{ 


ADD R'».R.I.; 

O^^OA 

9E08 


RET; 

O^OC 

O^OC 



TSTCt Abb. 5.1-1 

O'fOC 

ZDF'» 


EX R'»mR15'^; 

O^-IOE 

D02C 


CALR ignb; 

()^I:1.0 

0A'»9 


CPB RL1*R'»1^; 

0^11.2 

EAOB 


JR ZRyTCB; 


A9'»;l 


INC R'»-2; 

(Hl. 6 

2:l'l'» 


I D R'»fR'»''^; 

BASSYS 



MACRO B/BOOO ZBOOO ASSEMBLER 


AB'»:i. 


DEC R'»y2; 

Ü^IA 



ZACHTLING DISLP BYTE ADJ! ! ! 

O-^ELA 

ABSO 


DEC RSfi; 

O'^IC 



TC2J 

O'ELC 

A9S0 


INC RSyi; 

O^IE 

A9'H 


INC R'FyZ; 

O'IZO 

2DF'» 


EX R'».MR15'^; 

0^22 

9E08 


RET; 




TC3: 


A9'»l 


INC MfZf 

{)^Z6 

0'^2B 

EBFA 


vIR TC2? 

0'f28 

0^28 



tstnum: 

0^*28 

8D'»8 


CLR rh; 

0'I2A 

C60 0 


LDB RH6yO; 

0'}2C 

D03B 


CALR ignb; 

0^2E 



TNi: 

0'E2E 

0A09 

3030 

CF>B RLl r • 0 ' ; 

0-^32 

9E07 


RET cy; 

iy\3^ 

0A09 

3A3A 

CPB RLl f BAH ; 

i)^3B 

9E0F 


RET NC; 

0^3A 

C9F0 


LDB RLlyOFOH; 

0-^38 

B6'»9 


ANDB RLl*RH'»; 

0'*3E 

5E0E 

0'»6'» 

JP NZyQHOW; 

0'^^2 

AB60 


INCB RH6yi; 


93F6 


PUSH R1S'^-R6; 

0^^i6 

a:i.'»6 


LD R6-R'»; 

(.HH8 

81.'»'» 


ADD r'fjh; 

O'HA 

Bl.'»'» 


ADD R'»*R'»; 


Bl. 6'» 


ADD R'»yR6; 

0^'^E 

Bl.'»'» 


ADD R'»yFH; 

0'f50 

20S9 


L.[>B RLl .*F:5t; 

0-^52 

A9S0 


INC RSyi; 
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0609 

OFOF 


ANDB FL*L:l.j-0FH5 

0-^58 

c;i.oo 



LDB Fi!H1.yO? 

O'löA 

B:i. :\/\ 



ADD R'LmRI? 

0^5C 

97F6 



PÜP R6vRV5'^f 

0'}5E 

20fW 



LDB r<L1. rFL*51^? 

0^6{) 

f5E0D 

0^2E 


JP PLFTNii; 










QHÜW J 


93FTj 



PUSH FU5trR5; 

0^66 




AHÜW: 

{)^\66 

7605 

0-46E 


LD R5y-M4ÜW? 

0'^6A 

5E0B 

0970 


JP EFL’ROF^? 

0'^6E 




CÜNST CRLF:l.:=^ODOAH? 

0/I6E 




HÜWJ 

0'I6E 





i)'\6E 

^B'^F 

573F 


WORD:'HÜW?'? 

0^172 

ODOA 



WÜR:Dt CRLF1.? 





ok: 

(H/'f 

52^5 

-'I:L^'4 

5920 

WORD: ' READY ' ? Abb. 5.1-1 

0'^7A 

ODOA 



WÜRDJ CRLFl? 

0^7C 





tH7C 




WHAT t 

()'^7C 

57'FB 

'FL 5-4 

3F20 

WORDJ 'WHAT?' t 

0^82 

ODOA 



WORD? CFL-LFl? 










sorry: 


5B^F 

5252 

5920 

wüfl’d: 'büfüry' 5 

O^BA 

ODOA 



WORDt CRLFl? 

O'IBC 





O^BC 





O^BC 




%)K)K)K)K)K)K)K)K)K)K}(0(()K)K}K}(()K)K)K)KX)K)K)K)K)K)K}K)K)K}K)KX 

O'HBC 




% HAUPTPRÜGRAMM LIEST EINE )K 

O'^BC 




% BENUTZERZEILE EIN )k 

O'fBC 




%)K>I()I<)K)0<>I(>K)K)0()K)K)KXC>K>K)K)IO»C)»(5K»)IC)*C)K)K)K)*:5K)K>IC>K5K)K 

O^BC 





BA8SYS 




MACRO B/8000 Z8000 ASSEMBLER 

0^80 




rstart: 

O^BC 

760F 

11. DB 


L.D R15y-^STACF<; 

{)'\90 





0-^90 




STi: 

{)^k90 

DC76 



CALR CRLF? 

0^92 

7605 

0-47'L 


LD F^5y-^OF<5 

(H96 

C90 0 



LDB F'<L1. rO? 

0'^9B 

DD31 



CALR PRTSTGJ 

0'f9A 

760^ 

O'LA-4 


LD R'ty'^ST2•+•2t %TRICK TO 0 

O-^BE 

6F0-^ 

:l.0 0B 


LD CURRNTyR'15 

()'fA2 




ST2J 

0'^A2 

2:1.0-4 

0000 


LD R'F.O? 

O-'tAA 

6F0^ 

1.01.0 


LD LÜPUARyFL-4? 

O^AA 

6F0-'I 

:looa 


LD STKG0SyR-4y 

O'fAE 




ST3: 

O-^AE 

C93E 



LDB RL1.y':>'; 

O'IBO 

DD7E 



CALR getln; 

0'^B2 

93F5 



Fn.jSH RlS-hrRS? 


61.05 

1.21.8 


LD R5yBUFFER? 

O^BB 

DO ^9 



CALR TSTNUM? 

Ü'tBA 

D0B2 



CALR IGNB? 

0-^BC 

97F6' 



PÜP R6yR:L5't‘? %STK 


85^f^ 



ÜR R'fvR'l.? 

o-^co 

5E06 

0D26 


JP ZRy direct; 


AB50 



DEC R5y:l.; 
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O'HCY) 

2E5^* 


LOB R5tyF*l-H; 

O^CB 

AB50 


DEC R5yl? 

0-HCA 

2E5C 


LDB R5'^5^R•L'I? 

Ü'ICC 

93F6 


PUSH R15'hvR6? 

O^CE 

93F5 


PI..IBH R15tfR5? 

O'IDO 

A0E!:9 


LDB RL1?RL6; 

{)^D2 

B2D9 


SÜBB RLIvRL^; 

Ü'HH 

93F:i 


PUSH RI5t*RI? 

0^i:)6 

Dr.)6E 


CALR FNDI...N? 

Ü'fDB 

93F5 


PUSH R15tyR5? 

O^DA 




CHDA 

EEOB 


JR NZ^ST'i; 

O'fDC 

93F5 


PUSH R15t>'R5? 

Ü'^DEi; 

0D5(;: 


CALR FNDNXT? 

Ü-^fEO 

9:/F6 


PGP R6yR15t? 


610^ 

10 IC 

LD R'^f lXTUNF? 

0'EE6 

DCFB 


CALR MDI.IP? 

O'^EB 

6F06 

10 IC 

LD TXTUNFyR6? 

O^EC. 



3T^ ? 

O^EC 

97F6 


I•••ÜP R6yR15t? 

O^EE 

610^1 

1 OlC 

LD R^yTXTÜNF? , 

Q'^F2 

97F1 


PGP RlyR15t? Abb.S.M 

O'EE^ 

93F'^ 


PUSH R15tyR^? 

O^F6 

0A09 

0303 

CPB RLly3? 

O'tFA 

5E06 

O'IBC 

JP ZRyRSTART? 

O'^FE 

CI 0 0 


LDB RHlyO? 

050 0 

Bl :\A 


ADD R'fyRl? 

050Z 

6105 

1216 

LD F^5yTXTEND? 

050A 

BB5^ 


CP R'HyR5.; 

05ÜB 

5E0F 

O-^B^I 

JP NCySGRRY? 

050C 

6F0^ 

10 IC 

LD TXTUNFyR^? 

0510 

97F5 


PGP R5yR15t? 

05:1.2 

Di;>09 


CAI...R MUDGWH? 

051't 

97F5 


PGP R5yR15'^? 

05:1.6 

97F^ 


PGP R'lyR15t? 

05IB 

DDl 1 


CALR MUUP? 

05:1 A 

5E0B 

O-^tAE 

JP 8T3? 

051E 




051E 



% MAKRG DEFINITIGN EUER TSTC 

051E 




051E 



MACRO TESTC CHARyRELA? 

051E 



BEGIN 

051E 



CALR TSTC? 

051E 



BYTE? CHARyCHAR? 

^.iASSYB 



MACRG B/BOOO Z8000 ASSEMBLER 

051E 



wgrd: RELA 

051E 



END? 

051E 




051E 




051E 



%)K)K)K>K)*C)K)K)K>K)K)K><()«:«)«>K)K)K>K)K)KX<X<>»(*>K)t(>K54C«(>K>K* 

051E 



% NEW STGP RUN GGTG UPR >«< 

051E 




051E 




051E 



new: 

051E 

i:)Dt)F 


CALR ENDCHK ? 

0520 

760^1 

121C 

LD R'lytTXTBCN? 

052'E 

6F0'^ 

10 IC 

LD TXTUNFyR'^? 

0528 



stgp: 

052B 

DDE^ 


CAL.R ENDC'HK ? 

052A 

5E0B 

O'^BC 

JP RSTARl? 

052E 




052E 



RUN: 


Pfi\GE :L 
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Ü52E 

DDE7 



CAI...I’i: ENi:)t:HK ? 

0530 

7605 

:l.21C 


LD F;!5ytTXTBGN; 

053-^} 




Es’ÜNNXI.. J 

053'l 

8i:)''48 



CLE^ R'^rf 

0536 

i;>i:)99 



CALR ENDIJ:-? 

0538 

5E07 

0^8C 


jp cy^f;;stae^t? 

053C 




FilUNTSLt 

053C 

6F05 

;l.O 08 


LD CURF-;NT>Fs*5 5 

05^t0 

A9f^;:l. 



INC R5y25 %!!!'! 

05'{2 




RUNSMI...: 

05^2 

de:: OE 



CALR CONT? 

05'4^> 

760^4 

0C28 


LD R'4.^TAB2“;l.; X \ ! 

05^8 

5E08 

0D2A 


vjP EXEC? 

05-^C 

05'IC 




GOTO: 

05'^C 

DEEC 



CALR EXPR? 

05^e:; 

93F5 



F:‘U8F4 R1.5^rR5; 

0550 

DDF8 



CALR endcfik; 

0552 

[)DAC: 



CAI...R FNDI...N? 

055-^ 

5E0E 

0^466 


JP Ni^yAHÜWt 

0558 

97F1. 



POP RlyR:l5ty 

055A 

055C 

ih:8fo 



JR RUNTSLy 

055C 





055C 




% LIST PRINT I..IPR >K 

055C 

055C 




%*)*>K)K)K***)K)K*)Ky)K*)K*:*)K*)K*!K**:^*)«**iK***)K)K 

055C 




LIST1.: 

055C 

D09E:: 



CALR IST NUM t 

055E* 

E)DI-F 



CALR ENDCI-IF< * 

0560 

0562 

di:)e::3 



CAI..R FNDI...Ny 

0562 




LSi: Abb. 5.1-1 

0562 

5E07 

0'f48C 


JP CYyF«:>TART? 

0566 

OD'43 



CALR prti.n; 

0568 

de::2:l 



CAI. R CONT? 

056A 

E>DB3 



CALR FNDT.P? 

056C 

056E:: 

E8FA 



JR LSI? 

056Ei; 




PRINT t 

056E 

CE 06 



LDB RL6y6? 

0570 

[)OB3 

3i:;;3e:; 

057C 

TESTC •?'ypR2? 

0576 

DCE9 



CAi„.R (::ri..f ? 

0578 

057C 

5E08 

05^42 


,.JP RUNSML ? 

057(" 




PR2: 

057C 

D0B9 

ODOD 

0588 

TESTC ODHyPRO? 

0582 

d(::ef 



(::ai...fj: cfj:i.j-" ? 

058^ 

0588 

5E08 

053-^ 


Jp RÜNNXL ? 

0588 




PRO t 

0588 

DO BF 

2323 

0596 

TESTC '#■ypRI? 

BAS8YS 




MACR8 8/8000 78000 ASSEMBLER 1.2 

058E 

DFOD 



CALR EXPRJ 

0590 

AOCE 



LDB RL6yRL/4? 

0592 

0596 

5E08 

059A 


JP PR3? 

0596 




PR1. t 

0596 

DDA6 



CALR QTSTG? 

0598 

059A 

E807 



JR PR8? 


5.1 Z8000-Basic 


0S9A 



PR3 5 

059A 

D0C8 

2C2C OSA-'I 

TESTC “•“-PR6? 

OSAO 

DE2D 


CALR FIN? 

()f.=iA2 

E8F2 


JR pro; 

O'ciA'1 




O'oA-^ 



PR&; Abb. 5. 


DD 0 0 


CAI...R CRI...F; 

0'oA6 

D0F2 


CALR FINI? 

o^:;ab 



PR8 1 

0!.:iA8 

0F1.A 


CALR EXPR* 

05AA 

93F6 


PUSH Rl^=^i'^••R6i 

05AC 

DD8F 


CAI...R PRTNUM ? 

0^.AE 

97F6 


POP R6yR15'^; 

05B0 

5E08 

059A 

...IP PR3; 





OSB'f 



%)K)K)K)»(3«)K>K;«>K)K>K>t()K)KX<)K*)K)t(>t()K)K)K>K)»<*)K>K>K)K)K)K 

05B-^ 



Z GOSUB RETURN UPR ^ 

05B't 



% )K )K )*( >K)K >K )K >K * >K >K >tC X » >K >K 3« )K * >K )t( )K )K )e(>K ;«)«< )K )K 

OSB-'» 




05B'} 




05B'» 



(?ü8i.jB: 


DD42 


CALR pusha; 

()SB6 

DF21 


CAI...R expr; 

a5B8 

93F5 


PUSH R15'^vR^!i? 

05BA 

DDEO 


CALR fndln; 

05BC 

?.JEOE 

0^66 

jp nzj^ahom; 

05C0 

53F0 

10 08 

PUSH R15'^fCURRNT; 

05C^ 

53F0 

lÜOA 

PUSH R15'^rSTKC0S; 

05C8 

'♦D08 

1010 

CLR lüpuar; 

0?5CC 

6F0F 

1OOA 

LD STKQOS5-R15; 

O'öDO 

“5E08 

053C 

JP runtsl; 

050'^ 




05D^ 



RETURN; 

05D4 

DE3A 


CALR ENDCHK? 

05i:)6 

610-4 

lOOA 

LD R4fSTKGC)S; 

O^üDA 

8I5'H 


DR R-4.mE!-4? 

OSDC 

5E06 

096A 

JP ZRföWHAT; 

05E0 

Al'EF 


LD Rlf^-rR-'i; %M ! 

0SE2 

fr/FO 

lOOA 

POP STKG0SfR15'^; 

05EA 

;:;7F0 

10 08 

POP CURRNT-»R15-^; 

0!:;EA 

97FI5 


POP F^5yR15'^; 

Of5EC 

DD6F 


CALR popa; 

OSEEi; 

Dl 1.6 


CALR FINi; 

05F0 




05F0 




OSFO 



%xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

Ü5F0 



% FOR NEXT UPR * 

05F0 



Zxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

05F0 




05F0 



FORI: 

05F0 

DD60 


CALR pusha; 

05F2 

DE66 


CALR betual; 

05F^ 

AB'IO 


DEC R4ri; 

05F6 

6F0-4 

1010 

LD L0PUARfR4; 

05FA 

760-4 

0CF6 

LD R-4frrABS-i; 

05FE 

5E08 

0D2A 

JP EXEC; 

0602 




0602 



FRi; , 

0602 

DF^7 


CALR expr; 

060-^ 

6F0^ 

101-4 

LD LOPLMT»R^; 

0608 

760-4 

OCFE 

LD R-4y-1^TAB6~i; 
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BASSYS 

06ÜC 

5E08 

0D2A 

0610 
0610 
0610 

DF4E 


0612 

E802 


061^ 

061'L 

061'^ 

210^ 

0001 

0618 

0618 

6F0^ 

1012 

061C 

061C 

610-^ 

10 08 

0620 

6F0^ 

1016 

062'^} 

6F05 

1018 

0628 

2106 

OOOA 

062C 

6105 

1010 

0630 

AlF^ 


0632 

E801 


063'L 

063^^ 

816^ 


0636 

0636 

20'F<? 


0638 

A9^0 


063A 

O'+^LS 


063C 

Ei:60E 


063E 

20''l<? 


06^0 

AB^n 


06'}2 

8AD<? 


06'PL 

EEFV 


06^6 

20'19 


06'F8 

8A59 


06-^A 

EEF-^ 


06-4C 

AD5^ 


064E 

A1F6 


06^;0 

210^ 

OOOA 

065^ 

8154 


0656 

DDAB 


0658 

A14F 


II 

6104 

1018 

065E 

AD54 


0660 

D14F 


0662 

0662 

0662 

D14C 


066^ 

5E07 

096A 

0668 

6F04 

10 00 

Ü66C 

066C 

066C 

93F5 


066E 

AD54 


0670 

6104 

1010 

067^t 

8544 


0676 

5E06 

096C 

067A 

8B54 


067C 

E605 


067E 

97F5 


0680 

DDB«’ 


0682 

6104 

lOOC 

0686 

EBF2 


0688 




JP EXEC? 

FR2: 

CALR EXPR* 

JR ER'^f 

FR3: 

LD R-4vl? 

FR^: 

LD LOPINCyR-^? 
FRS: 

LD R-4y(.XIRRNT? 
LD LÜPLNyR^? 
LD LÜF'PTyRS? 
LD R6y0AH; 

LD R5vLüPUAR; 
LD F?^yR1.5; 

JR SKIPlf 
FR7J 

ADD R'FyR6: 
SKIP:l.: 

LDB RL;LyR'♦'^♦ 
INC R-^yi; 

OF'B RL:I. yR^'^? 
JR ZRyFRBJ 
LDB RLt-R^'^; 
DEC R^ylJ 
CPB RLlyRl.;:;; 
JR NZ-FRZ? 

LDB RLlyR'♦'^; 
CPB RLlyRH5? 
JR NZvFR/; 

EX R^fR^f 
LD R6yR:ie;? 

LD R'lyOAH; 

ADD R'fyRS? 
CALR MDDüWNt 
LD 
FR8J 

LD R-HyLOPPi; 
EX R-^fRS; 

CALR FINI? 

next: 

CAL R TSTM? 

JP CYföWHAT? 
LD DAFi:NXTyFv-^t 

NXO: 

PUSH R:U:J'hrRl:J 
EX R'FrFl;5 5 
LD R'lyLDPUAR? 
ÜR R^rR^rf 
JR ZRyAWHAT? 
CP R^yFi;5? 

JR ZRyNXS; 

POP R'ciyRI^-t'y 
CAL.R POPA5 
I.D FH-UARNXT? 
vIR NXOJ 
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i)6&B 


NX3? 

06B8 

20'li:> 

LDB RL5yR4t? 

06BA 

AB'^O 

INC R4!-:I? 

068C 

20'ff:; 

LDB RH5fR41^; 

068E:: 

610^ :l.01.2 

LD R4rL0PTNC; 

0692 

93F4 

PÜ8H R15'^»R4♦ 

069'l 

A0'}9 

LDB RLl!»RH4? 

0696 

8:i“ü^ 

ADD R4*R5J 

HÜA88YS 


MACRÜ B/BOOO 78000 ASSEMBLER 

0698 

BBIIÜ9 

XÜRB RLlyRH5? 

069A 

A059 

LDB RLIj-RHS? 

069C 

E502 

JR MIyNX4; 

069E-: 

88^9 

XÜRB RL1H-<II4; 

06A0 

E!5;i.7 

JR MIvNX5? 

06A2 


NX4 r 

06A2 

AD^H 

EX R4!^Fl:5? 

06A'» 

61.0^ .1.010 

LD R4fLÜPDAR; 

06 AB 

2E'H) 

LDB R41^j-RL5? 

06AA 

A9'f0 

INC R4ylJ 

06AC 

2E'}fj 

LDB R4'^J::;H5; 

06 AE 

610'l lOl-^E 

LD R4,LÜPLMT; 

06IH!2 

9.7F1 

PDP Rl-R151^: 

06B4 

8'ill 

ÜRB RHImRHI; %SWAP? 

06B6 

EDO :i 

JR PLhNXI? 

06B8 

AD’o^l 

EX Fv‘4*R5; 

06t:!A 


NXlt 

06BA 

DEiiDO 

CALR CKHI..DEt 

06BC 

97F5 

PDP R5‘.R15^J 

06BE 

E70Ä 

JR CYfNX2; 

06C0 

610^ 1016 

LD R4yLDPLN; 

06C'* 

6F0-4 10 08 

LD CURRNTyR4; 

06CB 

6104 1018 

I..D R4m| .DPPT? 

06CC 

Ai;)'54 

EX R4yR5? 

06CE 

Dl 86 

CAI..R FINI? 

06D0 


NX5: 

06D0 

97F4 

PDP R4yR15t? 

06D2 

97F5 

PDP R5yR15^; 

06D^ 


NX2: 

06D'f 

DDE3 

CAI..R PÜPAt 

06D6 

06i;)B 

D18A 

CALR FINi; 

06i;)B 


%)K)K>K>KX>K)K>K)K)K)K>»C;*()K>K>t<;K)«>t<>K)K)»<>K)K)t<)K>K>K)K}K)K>»(X)K 

06i:)B 


% RIü:M IF INPUT L.ET UPR 

0608 


%>»< )K )K)«( )K )«)!< >K )t<)K )K >K)«(}K)K >K )K )K )t< XC >t( )«)*<)»< >t()K )K >K )K 5K 

06D8 


REM: 

06D8 

8D4B 

CLR R4? 

06i:)A 

EBOl 

JR iffr; 

06r.)C 


iff: 

06i:)c 

DFB4 

CAI..R expr; 

06i:)E 


II-FR: 

06i:)E 

8544 

DR R4yR4; 

06E0 

5E0E 0542 

JP NZyRUNSMLJ 

06E'^ 

DE5D 

CAI..R FNDSKP; 

06E6 

5E0F 053C 

..JP NCfRÜNTSL; 

06EA 

06EE 

5E08 048C 

JP rstart; 

06EE 


inperr: 

06EE 

61OF 10OE 

LD R15ySTKINP? 

06F2 

97F4 

PDP R4yR15<^; 

06F'^ 

97F5 

PDP R5yR151^J 

06F6 

97F5 

PDP R5yR15t; 
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06FB 




iNPur: 

06F« 




iFi: 

06FB 

93F5 



F4..IBH 

06FA 

[)E5B 



CAI...F< QT8T(7,? 

06FC 

E803 



k.\r ;i;p2? 

06FE 

0:l.9A 



CALFv* T3TM? 

070 0 

E72A 



JR CYmIP^FJ 

0702 

E80E 



..JR IP3? 

070'F 




J.R2t 

070'f 

93F5 



PU8H R15t!rR5t 

0706 

5F0 0 

03CC 


CAI.L TSlVi 

070A 

5E07 

096A 


JP CYfQWFIAT; 

070E 

2059 



LOB RLl?R5t? 

071.0 

A09E 



LDB RI...6mF;;L1? 

07:12 

8299 



8UBB RI...1^F^I...1J 

071.'F 

2E59 



LDB R5'^yRLl? 

07:1.6 

97F-5 



PHP R5-.R15'^: 

BASBYS 




MACRÜ 

07:LB 

DE7:l 



CALR PRTSTG? 

071.A 

AOE9 



LDB RL1mRL6? 

07:IC 

AB50 



DEC R5vi; 

071.E 

2E59 



LDB R5'^yRLl? 

0720 




IP3J 

0720 

93F5 



PUSH R15'^yR55 

0722 

AD54 



EX.R4mF^‘5? 

072^» 

6104 

10 08 


LD R4yCUFd^NT? 

0728 

93F4 



PUSH R15'^yR^? 

072A 

7604 

06F8 


LD R4y'MPl? 

072E 

*6F04 

1OOB 


LD CUF^RNTyR4? 

0732 

6F0F 

10 OE 


LD STKINPyRlS; 

0736 

93F5 



PUSH R15tyR5? 

0738 

C93A 



LDB RLly' :■ ? 

073A 

DEC3 



CALR cetln; 

073C 

6105 

1218 


LD R5-BUFFER? 

07-^0 

DFE6 



CAI...R EXPR? 

07-^F2 

DCOE 



CALR CÜNT? 

07-^1^ 

97F5 



pnp R5!•R15'^S 

07^16 

AD54 



EX R4-P:5; 

07^8 

2E4D 



LDB R4t-RL5.? 

07'4A 

A940 



INC R4yl5 

07-^8 

2E45 



LDB R41^*RH5? 

07'FE 

97F4 



PGP R4*R15'h? 

0750 

6F04 

1 OOB 


LD CUF::RNTyP4? 

0754 

97F5 



POP R5yR15'^? 

0756 




IP4J 

0756 

97F1 



POP RlyR15^? 

0758 

D1A7 

2C2C 

0760 

TESTC '.'ylPS? 

075E 

E8CX. 



JR XPl? 

0760 




IP5t 

0760 

DICF 



CAI...R l=INI ; 

0762 




DEFI.TJ 

0762 

2059 



LDB F^l.lrR5-?‘? 

0764 

0A09 

ODOD 


CF*B RLlyODH.? 

0768 

E605 



JR 7RH...T1? 

076A 




let: 

076A 

[)F22 



CALR SEIDAL? 

076C 

Dl Bl 

2C2C 

0774 

TE-.STC 'y'yLTl? 

0772 

E8FB 



JR let; 

077/j 




LTi: 

0774 

0776 

D1D9 



CALR FINI? 
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0776 

0776 

0776 

0776 


MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC 

0776 


% EXPF’.* UPP MC 

0776 


% MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC MC 

0776 

0776 


EXPR t 

0776 

DFDO 

CALR EXPR2; 

0778 

93F^1 

PU8H 

077A 


EXPRl t 

077A 

760^1 ODO 8 

LD R^.^TAB8-:l. ? 

077E 

5E08 0D2A 

JP EXECJ 

0782 


XP1. It 

0782 

DFE^ 

CALR XP:l.8? 

078'{ 

9E07 

RET CY? 

0786 

A09(: 

LDB RL^rRL.!.: 

0788 

9E08 

RET? 

078A 


XP:l.2: 

078A 

DFE8 

CALR XP18? 

078C 

9E06 

RET 7R? 

078E: 

A09C 

LDB RL^yRLl? 

0790 

9E08 

RET t 

0792 


XP1.3J 

0792 

DFEC 

CALR XP.t8? 

079-^ 

9E06 

RET ZRt 

BA8SYS 
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0796 

9E07 

RET CY? 

0798 

A09C 

LDB RL^yRLl? 

079A 

9E08 

REIT? 

079C 


XPl^t 

0790 

DFF:i 

CALR XP:l.8? 

079E 

A09C 

LDB RL^yRLl? 

07A0 

9E06 

RET ZR? 

07A2 

9E07 

RET CY? 

07A'^ 

AO^C 

LDB RL^fRH4? 

07A6 

9E08 

RET? 

07A8 


XP:!.5; 

07 AB 

DFF7 

CALR XP:l.8? 

07 AA 

9E0E 

RET NZ? 

07AC 

A09C 

LDB RL/4yFI*Ll ? 

07 AE 

9E08 

RET J: 

07B0 


XP16t 

O'^BO 

DFFn::! 

CALR XP:18? 

07B2 

<;^E0F 

RET NC? 

07B^ 

A09C 

LE)B RL^.‘RI..:l? 

07B6 

9E08 

RET? 

07BB 


XP:l 7? 

07B8 

97|::v) 

POP 

07BA 

9E08 

RET ? 

07BC 


XPIBJ 

07BC 

A0E9 

LDB RL;| MRL6i 

07BE 

97|::/| 

POP R^?R;l.l5t? 

07C0 

97F6 

POP R6rR:l.5^? 

07C2 

93F^ 

PUSH Rl“^'^?R'+? 

07C^ 

93F6 

PUSH R:L•:i'^-R6? 

07C6 

A09E 

LDB R*L6yRLl? 

0788 

DFI"<? 

CAI...R EXPR2? 

07CA 

AD'o'l 

EX R^yRf5? 

07CC 

21!) 1”^ 

EX E:-^vR:i;^j'h? 

07CE 

DF5A 

CAI..R CKHL.de ? 
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07D0 

97F5 



POP 

07D2 

BD^B 



CLR R-^t 

07D-H 

C90:l 



LDB RLlfi; 

i)7ö6 

9E0B 



RET? 

i)7DB 




EXPR2J 

07DB 

r.);i E7 

2D2D 

07e::2 

TESTC •••“• ,»XF--21? 

07DE 

BD'IB 



CI.R R'F? 

07E0 

EBIB 



JR XP26? 

07h::2 




XP2:l : 

07IH:2 

C):l.EC 

2B2B 

07EB 

TESTC • + '.XF:*22? 

07E8 




XP22J 

07EB 

DFE7 



CAI...R EXPR3? 

07EA 




XP23? 

07EA 

[):lfo 

2B2B 

OBOC 

TESTC ' + ',XF-*2!5? 

07F-0 

93F^ 



PUSH R:ir:it-R'^? 

07F2 

DFEC 



CALR EXPR3? 

07F'^ 




XP2^t 

07F^f 

Ai:)!5^{ 



EX R^fR^rr^ 

07F6 

2DF^ 



EX R^mRü.^S^'? 

07FB 

A0^9 



LDB RLJ.yRI“Ki? 

07FA 




ADD R'F.R^-;? 

07FC 

88!:.i9 



XÜRB Rl iURH^:-;? 

o/fe 

97Ff:i 



PDP R^!,-Rl^'^f 

OBO 0 




JR MIyXF:*23; 

0B02 

8B't9 



XÜRB RI.. •|.m R|-K? 

OBO-'i 

f^JEOD 

07EA 


JP Pl...yXP23? 

OBOB 

•5E08 

0^6-^ 


JP OHOM: 

OBOC 




XP2?^: 

OBOC 

D20:l 

2D2D 

08A0 

TtTSTC '-•vXP^2? 

OB12 




XP26: 

ob:i.2 

93F^\ 



PUSH RVö't^MR^t 

OBl'i 

OFl-i;) 



CALR EXPR3? 

(;«b:i.6 

DFBB 



CALR ("HGSGN? 

OB1.B 

!=5E08 

07F'^ 


JP 

OB:i.c 




EXPR3J 

BASSYS 




MACRÜ 8 

OB:l.C 

DFD'I 



CALR EXPR'f? 

0B1.E 




XP3:l. t 

ob:le 

D20A 

2A2A 

OB-^'f 

TFÜSTC ')K'yXP3'f? 

0 82-^1 

93F'f 



PUSH Rlf5'^yR'♦? 

0826 

DFD9 



CALR EXPR'F? 

0828 

C60 0 



LDB RH6yO? 

0B2A 

DF9'^ 



CALR CHKSGN? 

082C 

2DF^ 



EX R^EyRl^t? 

0B2E 

DF96 



CALR CHKSGN? 

0830 

Ai:)'o-4 



EX R'lyR^? 

0832 

2DF'F 



EX R'FyR:l.5^? 

083'F 

8i:)88 



CLR R8? 

0836 

A1/F9 



LD l-^lByR'^}? 

0838 

99'oB 



MULT RRByR!:^? 

0B3A 

AI. 9^ 



LD R'|yFi:9? 

083C 

BÖ8B 



DR F^BfRB? 

083E 

?.JEOE 

0'F66 


JP N.?.y AHÜN? 

OB'42 

E81. 1 



JR XP35? 

OB'F'i 





OB'4'4 




XP3'I: 

OB^^ 

D21.D 

2F2F 

08A0 

TESTC '/'yXP'42? 

0B'4A 

93F'F 



PUSH RlfjtyR'U 

OB-^C 

DFEC 



CALR EXPR^? 

0B4E 

C60 0 



LDB RH6yO? 

08f:i0 

DFA7 



CALR CHKSGN? 


Abb. 5.M 


1.2.1E 


F'AGE 1 


146 


5.1 ZSOOOBasic 


0852 

2DE4 



EX F?4fR15^; 

0854 

bFA9 



CAI.R CHKBGNS 

0856 

2i:)F5 



EX R5fF;:l5'^? 

0858 

8555 



OR R5yR5? 

085A 

5E06 

0466 


JP ZRfAHOW; 

Ü85E 

93F6 



PUSH R15t>-r-i;6? 

0860 

r)FB5 



(::ai...r diuide; 

0862 

AI. 64 



LO R4yFi:6J 

0864 

97F6 



POP R6yR15^t 

0866 




XP35: 

0866 

97F5 



POP R5yR15'ht 

0868 

8444 



OF^•B RH4yRH4; 

086A 

5E05 

0464 


JP MlyQFlüW? 

086E 

8466 



OFi:B RH6yRH6; 

0870 

Ei:)D6 



JR PLyXPSl? 

0872 

DFB6 



CALR chgsgn; 

0874 

EBD^ 



JR XP31? 

0876 




EXPR4J 

0876 

760^1 

OCBl 


LD R4y'MAB4~lf 

087A 

5E08 

0D2A 


JP EXEC; 

087E 




XP40: 

087E 

D25A 



CALR TSTkn 

0880 

E705 



JR CYyXP4i; 

0882 

20'♦9 



Li:>B RLlyR4'^f 

0884 

A9-^0 



INC F“^4yi; 

0886 

20'H 



LOB RH4yR4^; 

0888 

A09C 



LOB RL4yRL15 

088A 

9E08 



RET f 

088C 




XP41: 

088C 

D233 



CALR tstnum; 

088E 

8466 



ORB RH6yRH6? 

0890 

9E0E 



RET N7? 

0892 




parn: 

0892 

D244 

2828 

08A2 

TEÜSTC '('yXP^S; 

0898 

0092 



CALR expr; 

089A 

D2'»8 

2929 

08A2 

TESTC 'V,XP43? 

08A0 




XP42 1 

08AO 

9E08 



RET? 

08A2 




XP43: 

08A2 

5E08 

096A 


..IP QHHAT? 

08A6 




RNOJ 

08A6 

DO OB 



CAI..R PARN? 

08A8 

84^'4 



ORB RH4yRH4? 

08AA 

5E05 

0464 


JP MlfOHOW? 

BASSYS 




MACRO 8/8000 Z8000 ASSEMBLER 

08 AE 

8544 



OR R4yR4? 

08B0 

5E06 

0-^64 


JP ZRfOHOW? 

OBB-^ 

93F5 



PUSH R15-^yR5? 

08B6 

93F4 



PUSH R151^yR4? 

08B8 

6104 

10 lA 


LO R4yRANPNT? 

08BC 

7605 

10 05 


LD R5ytLSTR0M? 

OBCO 

8B5^ 



CP R4yR5? 

08C2 

5E07 

08CA 


JP CYyRAl? 

08(:6 

7604 

0B66 


LO R4y'hSTART? 

08CA 




RAlt 

08CA 

2040 



LOB RL5yR4'^? 

08CC 

A9^0 



INC F-*4yl? 

08(:e 

20-^15 



LOB RH5yR4'^? 

08D0 

6F0^ 

lOlA 


LD RANPNTfR4? 

OBD'^ 

97F^ 



POP R4yR151^: 

08D6 

AD5-4 



EX R4yR5? 
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OBDB 

93F6 

PÜBH R1.5tMR6; 

OBDA 

i:)FI-2 

CALR DIDIDE ? 

OBDC 

97F6 

PDP R6)»R.1.1^!;'^^ 

OBÜE 

97F5 

POP RüiyRlSt? 

OBEO 

A9'|0 

INC 

OBE2 

9E0B 

RET f 

OBE-^- 



OBE^ 


ABB1.: 

OBE^ 

.D02A 

CALR parm; 

UBE6 

AB50 

DEC R5»1.; 

OBEB 

DFFB 

CALR chksgn; 

OBEA 

A950 

INC RSrI.; 

OBEC 

9E0B 

RET ? 

OBEE 



OBEE 


si7e: 

OBEE 

6.1.0'^ 1.2;l6 

I..D R'H.vTXTEND? 

OBI" 2 

3 0-^1 iOlC 

BUB R-H-IXTUNF-; 

OBE6 

9E0B 

RET ? 

OBFB 



ÜBF-B 
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ÜBFB 
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OBFB 


%xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

OBFB- 



OBFB 


diuxde: %hl/i:)e res in bc remaine:r in i-il 

OBFB 

A1.'}9 

LD R9yR^? 

OBFA 

BDBB 

CLR rb; 

OBFC 

9B5B 

DIU RR*8*F^'5? 

08FE 

AI. 96 

LD F;:6rR9; 

090 0 

A1.B^I 

LD R4mR8? 

0902 

9E0B 

RET? 

090-^ 



090't 



090'l 



090^ 


CHF<SGN1 

090^ 


ORB RU-^ rRH'l? 

0906 

9E0i;> 

RET PL.? 

090B 


CHGSGNt 

090B 


ÜR R^lyR'F? 

090A 

9E06 

RET 7R? 

090C 

AO-^9 

LDB RL1.yRH'4? 

090E 

BD'‘I2 

NFG R-^F? 

09:l. 0 

B8'}9 

XÜRB RI. :l. yRFH? 

09.12 

!5E0i:) 

JP PI.. mQHÜW? 

091.6 

0BÜ6 BOBO 

XÜRB RH6yB0H? 

09:l.A 

9E0B 

RFrr: 

091.C 



09i.C 


CI-^HL.DE$ 

09:I.C 

A0'f9 

LDB RL:1-RFH? 

091.E 

BB59 

XDRB RLJ.yRH5? 

0920 

EDO :i. 

JR PLmCKI? 

0922 

AD'o^ 

ii::x R^*Fi;^^i? 

092^1 


CFCL t 

092'} 

BB5'{ 

CP R"F-Rf^;? 

BASSYS 


MACRO B/BOOO 7800 0 ASSEMHitLER 1.*2, 
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9E0B 

RET ? 
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092B 
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092B 
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092B 
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{)92B 

i:)2AF 



CALR T 8 TV? 

092A 

5E07 

096A 


JP CYfQWHATt 

092E 

93F'4 



PUSH FJ:l5tMR-4? 

0930 

[)293 

3D30 

09'4^ 

TE 8 TC '=='^8^1; 

0936 

doe:l 



CALR EXPR? 

0938 

AI-46 



LD R6fR'4? 

093A 

97F-4 



POP R-^4mRI51^; 

093C 

2E-4E 



LDB R-4-^vRL6S 

093E 

A9^40 



INC R-'4.-i; 

09'10 

2E46 



LDB R^'^yRH 6 ; 

09>^2 

9E08 



RET: 

Q 9 / 4/1 





09 / 4/4 




8 D 1 ? 

09^-^ 

5E08 

096A 


JP QMHATi 

09^48 





09-48 




ein: 

09-48. 

i:;)29j:" 

3B3B 

095-4 

TE 8 rc •;•mFIi: 

09-'4E 

97FI 



POP R|yRI5^; 

0950 

5E08 

05-42 


JP runsml; 

095'4 





095'4 




Fii: 

095-4 

i:)2A5 

ODOD 

0960 

TE 8 TC 0DHyFI2? 

095A 

97FI 



POP R|yRI5'h? 

095C 

5E08 

053'4 


JP RÜNNXl..? 

0960 





0960 




FI2: 

0960 

9E08 



RET: 

0962 





0962 




endchk: 

0962 

D2D6 



CALR ICNB? 

096-^4 

0A09 

ODOD 


CPB Rl.lyODHt 

0968 

9E06 



RET ZRf 

096A 




qwhat: 

096A 

93F5 



PUSH RI5'^yR5: 

096C 




AWHAT t 

096C 

7605 

0'47C 


I..D R5m-M^HAT; 

0970 




ERROR: 

0970 

8299 



8 ÜBB PLIyRLi: 

0972 

DF9E 



CALR PRT 8 TC; 

097-4 

97F5 



POP R5-»R1.5T‘: 

0976 

2059 



LDB RL.1.yR5-^? 

0978 

93FI 



PUSH PI5-^MR|; 

097A 

8299 



8 UBB RLlyRLi; 

097C 

2E59 



LDB R5'^•RLI^ 

097E 

610^ 

10 08 


LD R^yCURRNT; 

0982 

93F-4 



PUSH RI56vR-4: 

098-^4 

20-^49 



LDB RI..|yR-'4'^: 

0986 

A9-^40 



INC R'4-i: 

0988 

0 / 4/49 



ORB Rl..l.yFv-4-h: 

098A 

9VF5 



POP R5.R151^; 

098C 

5E06 

0 ^ 8 C 


..JP 7RfFi'8TARr: 

0990 

20-^49 



LDB RL:IJ:^-4I^J 

0992 

8^499 



ORB PI..|yF;‘L.1. : 

099/4 

5E05 

06EE 


JP MImINPEFÜR: 

0998 

DF5C 



CALR prtln: 

099A 

AB50 



DEC R5y|: 

099C 

97|r| 



POP RIyRI5^: 

099E 

2E59 



LDB R5'^yFH..l: 

09A0 

C93F 



LDB RLIy'9'; 

09A2 

DEFE 



CALR OUTC: 

09A'4 

8299 



8 UBB RLlyRI.I? 

09A6 

DFB 8 



CAI R PR I BTC: 
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BASSYB 



MACRÜ 8/80 00 7800 0 ASSEMBLEFÜ 

09A8 

5E08 

0'48C 

JF> RSTART? 

09AC 



QSORRYJ 

CI9AC 

93F5 


PUSH R154^*R5; 

09AEL- 



ASORRYJ 

09 AE 

7605 


LD R5«1^8C)RRYt 

09B2 

5E08 

0970 

jp error; 

09B6 

09B6 

09B6 



7 CETLN FNDI...N UPR ^ 

09B6 



% )K >K )K )K)»C )K )K )K >»: )K )« Ä )K)K)K >K >K )K )K >K >»( )K)K )K )K >K )K )K 

09B6 

09B6 



geti.n: 

09B6 

DF 08 


CAI..R ÜUTC; 

09B8 

6:l.05 

1218 

LD R5fBUFFER; 

09BC 



GLl t 

09BC 

DEF3 


CAI.R CHKIO; 

09BE 

0A09 

010 :i 

CPB RLl-i; %[>EL ZEICHEN 

09C2 

E61.1 


JR ZRfGl..3; 

09C'^ 

DFOF 


CALR ÜUTC; 

09C6 

0A09 

OAOA 

CPB RLIj-OAH; 

09CA 

E6E8 


viR zrmgli; 

09CC. 

B'F99 


ORB RLlyRLi; 

09CE 

E6F-6 


JR ZRyGLi; 

09D0 

0A09 

IBIB 

CPB RLlylBH; %E8C 

090-^ 

E60F 


JR zrvqi./h; 

0906 

2E59 


LDB R5'^yRLi; 

09D8 

A950 


INC R5yi: 

09DA 

0A09 

ODOD 

CPB f;!L1modh; 

09DE 

9E06 


RET 7R; 

09E0 

A0D9. 


LDB RLlyRLS; 

09E2 

DE3F 


CALR CXBUFEJ 

09E'F 

EEEB 


JR NZ f GLl; 

09E6 



GL3: 

09E6 

A0D9 


LDB RLlyRLS; 

09E8 

DE3E 


CALR cxbufa; 

09EA 

E60'4 


JR ZRyGL'F; 

09EC 

AB50 


DEC R5yi; 

09EE 

C908 


LDB RLlyO; 

09F0 

DF25 


CALR OUTC; 

09F2 

EBE'I 


JR GLi; 

09F^ 



GL'^t 

09F^ 

DF28 


CALR crlf; 

09F6 

C90B 


LDB RLlyORJH; 

09F8 

09FC 

5E08 

09B6 

getln; 

09FC 



fndln: 

09FC 



ORB RH'FyRW; 

09FE 

5E05 

0^6^4 

Jp MIyQHOW; 

0A()2 

7605 

121C 

LD R5v'MXTBGN; 

0A06 



FNDI...P t 

OAOA 



FLl X 

0A06 

93F-4 


PU8H RISI^-R-^; 

0A08 

61.0^ 

10 IC 

LD R^vTXTUNF; 

OADC 

AB^O 


DEC R^yi; 

OAOE 

8B5^ 


CP R-^yR5; 

0A1.0 

97F^4 


POP R^yR15<^; 

0A:I.2 

9E07 


RET cy; 

OAl'i 

2059 


LDB RLlyR5^; 

0A:L6 

82C9 


SÜBB RLlyRI../4; 

0A18 

A096 


LDB RH6yRLi; 

oa:la 

A950 


INC R5yi; 


F-'AGE 1 
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OAIC 

20L=;9 



oa:i.e 

B6'\9 



0A20 

EI70'F 



0A22 

AB!;vO 



0A2^ 

8^69 



0A26 

9E08 



OA20 




ÜAZB 




BASSYS 




0A2B 

A9IIÜ0 



OA2A 




0A2A 

A950 



0A2C 




0A2C 

205<? 



0A2EI 

•0A09 

ODOD 


(1A32 

miFB 



OAS^I 

A9l^?i0 



0A36 

E8E7 



0A38 




0A38 




0A3B 




0A38 




nA38 




0A38 




0A3B 

A096 



0A3A 




0A3A 

2059 



0A3C 

A95n 



0A3E 

BA6<? 



OA'IO 

9E06 



OA^Z 

DF'FE 



OA^^I 

0A09 

ODOD 


OA'IB 

!i:efb 



OA-'FA 

9E08 



OA^C 




OA^+C 




OA^C 

D32:l. 

2222 

0A7'F 

0A52 

C922 



(:iA5^ 




0A5'I 

5Fon 

0A38 


OA^B 

0A0<? 

ODOD 


OAIviC 

97F'F 



0A5E 

5E06 

053'^ 


0A62 




0A62 

2:l.'F0 



OA^-'F 

A9'^:l. 



0A66 

070 0 

FO 0 0 


0A6A 

OBOO 

EOO 0 


0A6E 

:l.E^F6 



OA/O 

AB-^J. 



0A72 

lE^FB 



OA/'F 




nA7^ 

D335 

2727 

0A7E 

0A7A 

C927 



0A7C 

E8EB 



0A7E 




0A7E 

D33A 

5F-5F- 

OABE 

OAB'F 

C9BD 



0A86 

5F0 0 

OB AB 


OA0A 

97F'F 



OABC 

EBEA 




LOB RLlfR'5^; 
SEÜCIE! F?L:l.yF^hH? 
JR CY^FLZ; 
de:(: Rf5^:L? 

ORB RLlyRH6; 
REIT? 

fndnxt: 


MACRÜ 0/80 0 0 Z80 0 0 ASBEMIÜLER 1.2»:I.E F^’AGE 2 
INC R5y;l. ? 

FL2 1 

INC R5y:l.? 

FNÜSF<PJ 
LDB RLlfR^f'i'f 
CPB RL1. «ODH? 

JR NZvFL2? 

INC R5y:l.? 

JR fl:i.; 


%PRTSTQ GTBTC PRTNÜN PRIIN 


UPR 


PRT8T05 X 

RF16*RL:l ? 

PSI t 

LDB RI. :l. yR5'^^ 

INC R^}<\.* 

CPE! RL:L-RH6? 

RET ZR? 

CALR DUTC? 

CPB RL1.y(}DH? 

..IR NZmPSI- 
RET? 

QTSTC t 

TESTC '“'yQT3? 

LDB RLly22H? 

QT:l; 

CALL PRTSTG? 

CPB RLI»ODHi 
PGP R^yR;l.5^? 

..IP ZRmRUNNXL? 

Qr2 1 

LD ROfR'l^? %MAR RESTÜRN 
INC R'^yZ? 

AND ROvOFOnOH? 

CP ROyOEOOOH? %JR BEFEHL 
JP /RyP-^Fr? 

INC R^y2? %SÜNST JP DANACH 
JP R'{'^? 

Q ra X 

TESTC 27HyQT'l? 

LDB RLly27H? 

JR (•)T:l. ? 

TESTC ’fvQT5? 

LDB RLlySDH? %CR OHNE LF 
CALL GüTCi 
PGP R^yRI.I^'h? 

JR GT2? Abb. 5.1-1 
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OASE 


QT5t 

OASE 

9E08 

RET? 

0A90 



0A90 


prtnbm: 

0A90 

C6{) 0 

LDB RF^6fO? 

OA92 

5EOO 090^ 

CALL CHF(SGN? 

OA96 

ED 02 

JR PLVPNI? 

OA98 

C62D 

LDB RH6«•-'? 

OA9A 

AAEO 

DECB RL6*1? 

OA9C 


PNI: 

OA9C 

93F'"5 

PUSH R15>^yR5? 

OA9E 

2:1.05 OOOA 

LD R5rOAH? 

OAA2 

93F'5 

PUSH R15'^rR5? 

OAA^ 

AAEO 

DECB RL6yl? 

OAA6 

93F6 

PUSH R15'^yR6? 

OAA8 


PN2? 

OAA8 

D0D9 

CALR DIUIDE? 

BASSYS 


MACRO 

OAAA 

8566 

OR R6yR6? 

OAAC 

E:605 

JR ZRfPNS? 

OAAE 

2DE'^ 

EX R^yR15'^? 

OABO 

AACO 

DECB RL'Fyl? 

OAB2 

93F'^ 

PUSH R15tyR-4? 

OAB^ 

Al 6-4 

LD R-4yR6? 

OAB6 

E8F8 

JR PN2? 

OAB8 


PN3: 

OAB8 

9:/F6 

POP R6yR151^? 

OABA 


PN-4J 

OABA 

AAEO 

DECB F;:L6yl? 

OABC 

b-4i^:e 

ORB RL6vRL6? 

OABE 

E503 

JR M:i:yPN5? 

OACO 

C920 

LDB RLly' '? 

OAC2 

DFBE 

CALR ÜUTC? 

OACy* 

EBEA 

JR PN-4? 

ÜA(:6 


PN5: 

OAC6 

A069 

LDB RLlyRH6? 

OACB 

B'+66 

ORB RH6yRH6? 

ÜACA 

E:601 

JR ZRrSF(IP2? 

OACC 

DF93- 

CALR ÜUTC? 

oac:e 


SKIP2: 

OACE 

AÜCD 

LDB RL5*RL'4? 

OADO 


PN6: 

OADO 

A0D9 

LDB RL:|yRL5J 

OAD2 

OAOD OAOA 

CPB RL5yOAH? 

OAi:)6 

97F5 

POP R5yR15'^? 

OAD8 

9E06 

RET ZR? 

OADA 

0009 3030 

ADDB FÜL:ly‘0'? 

OADE 

DF9C 

CALR ÜUTC? 

OAEO 

EBF7 

JR PN6? 

OAE2 


PRTI..N: 

OAE2 

205C 

LDB RL'}yP5'T‘? 

OAE^i 

A950 

INC R5yl? 

OAE6 

205^ 

I..DB RH-4 vR5'T‘? 

OAE8 

A950 

INC R5yl? 

OAEA 

CEO'F 

LDB RL6«»'F? 

OAEC 

D02F 

CALR PRTNUM? 

OAEE 

(:::920 

LDB RLly' '? 

OAEO 

DFA5 

CALR ÜUTC? 

OAE2 

8299 

SUBB RLlyRl.l? 

oaf-^i 

D05F 

CALR PRTSTG? 

OAEA 

9E0B 

RET ? 

OAE8 
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5.1 Z8000-Basic 


OAFB 



% )K)«)K )K >K >K )K )K )K )K )K )K }K XOK >K )K )K )K )K:4( >K )K)K 

OAFB 



mup MUDÜWN F-*OPA F-1JSHA>K 

OAFB 

OAFB 



Z******)K**)K*)K*)******)K»:*)K* 

OAFB 



MUUF-*J 

OAFB 

BBF.^ 


CP P.^-R^ii 

OAFA 

9E06 


RET ZR? 

OAFC 

BA^^Il 

0 06B 

LDIB R6'^•R5'^rR0? 

OBO 0 

EBFB 


JR M9IJF** 

0B02 

0B02 



MUDOWN t 

0B02 

BB6^. 


CF-* R!ri,.R6t 

OBO'} 

9E06 


RE1‘ ZRt 

0B06 

AB50 


DEC R“=i«:i: 

OBOB 

AB'^O 


DEC R^vi? 

OBOA 

20“;<? 


LDB RLlvR'iv'^; 

OBOC 

2E^9 


LDB R^^mRLI? 

OBOE 

H!:BF9 


JR MUDDWNf 

OB 10 
OBI 0 



PÜPA t 

OBI 0 

97F6 


POP R6yRlF.'^: 

OBI 2 

97F^ 


POP R'FrRl'ott 

OBl'^F 

6F0"1 

101 0 

LD l..üFH;ARyR^5 

OBIB 



GR R^fR'F? 

ob:i A 

E609 


JR ZRvF'-Pi; 

BABSYB 



MACFÜG B/BOOO ZBOOO 

OBIC 

'=i7F0 

1012 

PGP Lüp:^:NCyRll::i'^; 

0B20 

57F0 

lOl'F 

PGP LGPL.MTyRlS-^? 

i)B2^ 

l:;7F0 

1016 

POP L0PLNyR15^; 

0B2B 

97p/4 


PGP R'^yR15'^? 

0B2A 

6F0'} 

1 OlB 

LD LGPPTmR^; 

0B2E 



ppi: 

0B2E 

93F6 


PUBH Rl'ötyR6; 

0B30 

9E0B 


RET; 

0B32 

0B32 



PIJSHA: 

0B32 

760^F 

10'}6 

LD R^fFytBTFd.MT; 

0B36 

f5F0 0 

090B 

CAI..L cfigbgn; 

0B3A 

97FÄ 


PGP R6-R15'^; 

0B3C 

AIFO 


LD ROyRlS; 

0B3E 

BIO^ 


ADD R'lyRO; 

OB^O 

f5E0F 

09AC 

...IP NCyQSGRRY; 

OB^-H 

610-^ 

1010 

ID r'ImI gpuar; 

OB^B 



GR R'FyR'F; 

OB^A 

E60A 


JR zrmFmji; 

OB^C 

53F0 

lOlB 

PUBI-I Rl^tyLÜPPr; 

dB'oO 

•53F-0 

1016 

PGSH R15tyLGPLN; 

OBüü'l 

53F0 

lOl^F 

PUSH Rlf^^yl.GPLMT; 

0B5B 

53F0 

10:I2 

PUSH Rl'5'^yL0PINC; 

0B5C 

610't 

1010 

LD R^yLGPUAR; 

0B60 



PUl t 

0B60 

93F/4 


PUSH Rl'^il^yR^F; 

0B62 

9^pF6 


PUSH Rl’5tyR6; 

0B6A 

0B66 

0B66 

9E0B 


RET; 

0B6.6 



J«<>K >K >K )K )K >(<)«<>»<>»(* )K >K >*C >K )«<* >K )K 

{)B66 



% GUTC CHF<IG 

0B66 

0B66 



z********************* 

0B66 



st AF« r! 




Abb.5. 


1.2.1E 


1 

F'ACvE 2 


153 


5 Anhang 



0B66 

76 OE 

1 :l.DB 

L.D R15y'^BTACK? 

0I=!6A 

C9FF 


LDB RLlyOFFH? 

()B6C 



INITt 

0&6C 

6E09 

10 06 

LDB ÜCBWyRLi; 

m/o 

DFE6 


CAI.R CRLF? 

m72 

B299 


BUBB RLlyRLi; 


7605 

OBF'H 

LD R'oy-^MBGl? 

OB70 

DO Al 


CAI.R PRTSTGt 

0B7A 

760^1 

0B66 

LD R'4ytSTART? 

0B7E: 

6F0'4 

10 lA 

LD RmfWfR^\* 

()BB2 

760^ 

121C 

LD R'4y'MXTBGNJ 

ms6 

6F0-^ 

10 IC 

LD TXTUNFyR^y 

0B8A 

760^4 

1''476 

LD R'Ev'MXTEt 

OBBEÜ 

6F0'4 

1216 

LD TXTENDyR'4; 

nB92 

760^ 

1'47B 

LD R^ytBUFA: 

0B96 

6F0^ 

12IB 

I..D BUFFERrR^4; 

0B9A 

760-^ 

1'4BB 

LD R^y'^BUFE? 

0B9E 

6F0'4 

121A 

LD BUFENDyR^; 

0BA2 

5E0B 

O'IBC 

JP RSTART? 

0BA6 




0BA6 



CRLF t 

0BA6 

C90D 


LDB RI. 1 yOI>U 

OB AB 



QUTC ! 

OB AB 

93F6 


PUSH R151^yR6? 

OBAA 

93F1 


F*ÜSH R15tyRi; 

OBAC 

60 09 

10 06 

LDB RLlyüCBWJ 

OBBO 

8-^99 


ÜRB RLlyRLi; 

0B&2 



0C2: 

0BB2 

EE03 


JR NZrOCB? 

OBB-^ 

97F:l 


POP RlyR151^; 

OBB6 

97F6 


POP R6yR15'^; 

OBBB 

9E0B 


RET; 

OBBA 




OBBA 



nc3t 

BABBYB 



MACRÜ 

OBBA 

97F:| 


POP RlyRlSt; 

OBBC 

93F1 


PUBH RI51^ y RI; 

OBBE 

A09E 


LDB RL6yRLi: 

OBCO 



LPTJ 

OBCO 

OAOE 

ODOD 

CPB RL6yODH; 


E605 


JR ZRyLINEF; 

OBC6 



h;i t 

OBC6 

A0E9 


LDB RLlyRL6; 

OBCB 

D'40F 


CALR coii; 

OBCA 

97F1 


POP RlyR15'^; 

OBCC* 

97F6 


POP R6yR15'^; 

OBCE 

9E0B 


RET; 

OBDO 



LINEF t 

OBDO 

C90D 


LDB RLIvODH; 

OBi;>2 



CALR coii; 

OBD'F 

CEOA 


I...DB RL6yOAH; 

OBi:>6 

EBF7 


JR Hi; 

OBDB 




OBDB 



CHKIOt 

OBDB 

D'419 


CALR CTli; 

OBDA 

0609 

/ir/fr 

ANDB RLlyZFK; 

OBDE 

0A09 

0202 

CF*B RLl-2; 

OBE2 

E-EOB 


JR NZyCIi: 

OBE-^ 

^DO 0 

10 06 

COM OCSW5 

OBEB 

ErBF7 


..jR CHKIO; 

OBEA 




154 





Abb. 5.1-1 




F-*AGE 2 


5.1 ZSOOO'Basic 


OBEA 




c;i:i? 


OBEA 

0A09 

0303 


CF>B RL:tf3? 

OBEE 

9EOE 



RET NZ? 

OBFO 

5E08 

0'*8C 


JP R8TART? 

OBF^ 






mF^\ 




MSGl t 


OBF'^ 


-4B20 

5A38 

WORD? 

•RDK 780 0 0 BASIC J. ♦ 0 

OBFA 

3030 

3020 

-42-'♦1 



OCOO 

53^19 

'1320 

3:L2E 



0C06 

3020 





0C08 

ODOA 



WORD: 

ODOah; 

OCOA 






OCOA 





K )K )K >K >K }K XC :K )K)((>K )4( )K }K >K )K)«()«( 

OCOA 




Z TABELLEN DIRECT EXEC>k 

OCOA 





KX()K>K)K)K)K)KX()K)K)K>K)K)K)K)K)K)K 

OCOA 




Z 


OCOA 




Z BYTE LIND WÜRDS 

OCOA 






OCOA 




TABl t 


OCOA 

-^C'E9 

535-4 

0 0 

BYTE; 

‘LIST•.0; 

OCOF 

o«;sc 



WORD; 

LIST1.; 

OCll 

S255 

-'IE 0 0 


BYTE; 

' R'ON ' r 0 ; 

OClf^ 

0;52E 



WORD; 

RON; 

oc:i7 

•HE-IS 

570 0 


BYTE; 

'NEW'^ 0; 

OCIE.'! 

05:1 E 



WORD;. 

ne:w; 

OCID 

-^259 

'f50 0 


BYTE; 

■BYE•.0 ? 

OC21 

ODAA 



WORD; 

bye; 

OC23 

^D-^5 

-4D0 0 


Byte; 

'MEM'fO? %NEU END Abb. 5.1-1 

OC27 

0D76 



WORD; 

ENDi; 

OC29 






OC29 




TAB2; 


OC29 

'^E'15 

585^^ 

0 0 

BYTE; 

'NEXT'y 0; 

OC2E 

0662 



WORD; 

NEXT? 

0C30 


5-400 


Byte; 

' LET • y .o ; 

OC3'l 

076A 



WORD; 

LET; 

OC36 

^9'f6 

0 0 


Byte; 

' :rF • y 0 ? 

OC39 

06DC 



WORD; 

IFF f 

OC3B 


5'}-4F 

0 0 

BYTE; 

■ GOTO• y 0; 

OC'H) 

OS'^C 



WORD; 

GOTO? 

OC^2 

/f7/|F 

5355 

-^♦20 0 

BYTE; 

'GOSUB■y 0 ? 

OC^8 

05B^ 



WORD; 

GOSUB? 

OC^A 

52^15 

5-'l55 

52-4E 

BYTE; 

’RETURN•y 0 ? 

OCSO 

0 0 





BASSYS 





MACRO 8/8000 78000 ASSEMBLER I^Z^IE PAGE 

OC51 

05EH 



WORD; 

RETURN? 

OC53 

52^5 

'fOOO 


BYTE; 

• REM'y 0 ? 

OC57 

06[>8 



WORD; 

REM? 

OC59 

'\6^F 

520 0 


BYTE; 

'FOR'y 0 ? 

OCl^D 

05F0 



WORD; 

for:l ? 

OC5F 

^9'^E 

5055 

5-^10 0 

BYTE; 

• INPUT•y 0 ? 

OC65 

06F8 



WORD; 

INPUr ? 

OCA7 

5052 

^9-'iE 

5-^10 0 

BYTE; 

• PRINT•y 0 ? 

OC6D 

056E 



WORD; 

PRINT ? 

OC6F 

535-4 

'»F50 


BYTE; 

'STOP'y 0 

OC73 

0 0 05 

28 


WORD; 

STOP? 

OC76 

-^♦3-41 

'EC-4C 

0 0 

BYTE; 

' CAL.L ' y 0 ? 

OC7B 

ODBO 



Word; 

CALLl? 

OC7D 

'EF55 

5-4 

0 0 

BYTE; 

' OU TC ' y 0 ? 

OC82 

0EB8 



WORD; 

OUTCHAR? 

OC8^ 

'»F55 

5-40 0 


BYTE; 

' OLI f-' y 0 ? 

nC88 

ODCO 



WORD; 

DU T :l. ? 
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0C8A 

^♦F2^ 

0 0 


BYTE: 

• Oiü'»0; 

OCBD 

ODEE 



WORD: 

00; 

OC8F- 


00 


BYTE: 

• J 0 5 

()C92 

ODFE 



WORD; 

IT.: 

OC9^l 

f50^F 

'FB'FS 

0 0 

BYTE: 

• F'OKE ' y 0 ? 

(;iC99 

OE'FO 



WORD: 

f*of<e; 

OC9B 


^>20 0 


BYTE: 

• TAB• y 0; 

(:iC9F 

ODD6 



WORD: 

tab: 

OCAJ. 

^259 

S'F'FS 

0 0 

BYTE: 

‘ BY TE ' y 0 : 

(;iCA6 

OEm 



WORD: 

BYTE:l. ♦ 

OCA8 

57W 

SZ'I'F 

0 0 

BYTE: 

'WORD' y 0 y 

OCAD 

0E60 



WORD: 

WORfTI.: 

OCAF- 

0 0 



BYTE: 

o: 

OCFÜO 

0762 



WORD: 

DEFLT; 

0CB2 






OCB2 




TAB'F: 


OCB2 

52^}E 

'F'lOO 


BYTE: 

'RND' y 0 y 

OCB6 

0BA6 



WORD: 

RND y 

OCBB 

^1.‘‘F2 

530 0 


BYTE: 

• ABS' y 0 y 

OCBC 

OBE'4 



W0F"«:D: 

ABSl y 

OCBE 

•53'f9 

5A'I5 

0 0 

BYTE: 

'SI7E'M 0 ? 

0CC3 

OBEE 



WORD: 

SI7Ey 

0CC'=i 

50'FS 

'fS'fB 

0 0 

BYTE: 

• BEEK‘y 0: 

OCCA 

0E38 



WORD: 

PEEKy 

OCCC 

'F^'IE 

'fBOO 


BYTE: 

'INC•y 0: 

OCDO 

0EC2 



WORD: 

INCHAR y 

OCD2 

'FB'IS 

580 0 


BYTE: 

'HEX'-Oy 

OCD6 

OECA 



WORD: 

HEXy 

OCDB 

'F9'IE 

0 0 


BYTE: 

'IN' y 0 y 

OCDB 

0DE6 



WORD: 

INI y 

OCDD 

270 0 



BYTE: 

27Hy0y 

OCDF“ 

0E9'f 



WORD: 

QUOTE: 

OCE:l. 

5'F'FF 

50 0 0 


BYTE: 

' TOF^* • y 0 : 

OCE^?; 

OE AB 



WORD: 

TOP: 

oce:^ 

'FC'FS 

'lEO 0 


BYTE: 

• L.EN ' y 0 : 

OCEB 

OEBO 



WORD: 

lenqth: 

OCED 

'FBSB 

S'FSB 

0 0 

BYTE: 

• OSTS• y 0 5 

()CF2 

OEBA 



WORD: 

cbtat: 

(1CF4 

0 0 



BYTE: 

o: 

OCF!::; 

0B7E 



WORD: 

xF-’^io: 

(ICF7 




■] AB5: 


OCF7 

5'HF 

0 0 


BYTE: 

' TO ■ y f» y 

hCFA 

0602 



i-JORD: 

FR:l.: 

OCFC 

0 0 



BYTE: 

o: 

{)CFD 

096A 



WORD: 

QWHAT: 

OCFF 






OCFF 




TAB6: 


OCFF 

SBS'} 

'fSSO 

0 0 

BYTE: 

'STE-P' mjo; 

ODO'F 

06J. 0 



WORD: 

FT;!2 y 

0D06 

0 0 



BYTE: 

o: 

ODO 7 

06:l.'F 



WORD: 

FR3: 

0D09 
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ODO 9 




tabb: 


0D09 

3E3D 

0 0 


BYTE: 

' .>== ' y 0 : 

ODOC 

07B2 



WORD: 

xpii: 

ODOE 

230 0 



BYTE: 

• #• • y 0 y 

OD:l 0 

07BA 



WORD: 

XP12: 

OD1.2 

3E0 0 



BYTE: 

• ;> • y 0: 

od:i.^ 

0792 



WORD: 

XP13: 

ODJ.6 

3D0 0 



BYTE: 

• = ' y 0 y 
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5.1 Z8CX)0-Basic 


oi:):i.8 

Ü7A8 

WülvO: XP15; 

ODIA 

3C30 00 

|:;:YTEt ' •=:> ' mO; 

or.):LD 

0790 

mmt xpi.'4? 

ÜDIF" 

3C0 0 

BY T E t ' <:' • 0 i 

{)D21 

07EÜ0 

wüRo: xp. 1 . 6 ; 

OD23 

0 0 

BYTE: o; 


07E::8 

WüFv'O: XP1.7? 

OD26 



0026 



0026 


)K )K )K ^ ^ )K )K )IC 

ODZ6 


X o;i:rect mooul ^ 

OD26 


%)« )K >K )»< ^ ^ X<)K >K Ä >K >«()«:« )K >K 

0026 



1)026 


orPEcr: 

0026 

760'» 0C09 

LO R^y'MABl-i; 

()D2A 


EXEc:: 

0O2A 


Exo; 

0O2A 

O^0A 

OALR :i;gnb; 

002C 

9Gr5 

PUSH R1.5'hyR5? 

()02E 


EX 15 

0O2E 

2059 

LOB RLlfR5'^? 

0030 

A950 

INC R5yl5 

0032 

0A09 7E2E 

CF-‘B RL:Ly‘.'5 

0036 

e:6oo 

JR 7RyEX3; 

0038 

A9'40 

INC R'4y1? 

0D3A 

OA'^9 

CPB RLlyFm? 

0O3C 

l=;6E“8 

JR .ZRmEXI; 

003E: 

8C98 

CI...RB . RLl? 

00^0 

0050 

OEC R5yi; 

my\2 

0A^9 

CPB RLlyR^'h; 

OO^'^ 

l=:60A 

i.lFv' ZRyEX5? 

0D'16 


EX2S 

O0'^6 

A9'40 

INC R^4yl? 

00-^48 

0A'f}9 

CPB RLlyR^^; 

OO-'FA 

EliüF-D 

JR NZyEX2? 

OO'IC 

A9'^1. 

INC Mf?.* 

00^1“ 

97F-5 

POP R5yR15t? 

0050 

Ei:8EC 

JR Exo; 

0052 


EX3: 

0052 

8C98 

CL.RB RLi; 

005-^ 


EX^ 5 

005^ 

A9^0 

INC FÜ^yl? 

0056 

0A'f9 

CPB RLlyR'4t5 

0058 

EEI=i:) 

JR NZfEX-^; 

005A 


EX5: 

0O5A 

A9'^tO 

INC R'4yl? 

0O5C 

20'40 

LOB RH0*R'4'h? 

0O5E- 

A9/40 

INC R^ylJ 

0060 

20^48 

LOB RIO.P'^4^; 

0062 

971-1. 

PGP RlyR15^y 

006^ 

1.E08 

JP ROt? 

0066 



0066 


% )K )K )K/K )K )K )J()K )K! )K )K )tC)K )K/C<)K )K 

0066 


ZENO EXEC: >K 

0066 


% >K )»< >K Xf >« » »: Xf * )K >»< >K )K >»< )K )K 

0066 



0066 



0066 


ZEINZELNE RÜUT;rNEN 

0066 



0066 



0066 


CXBUFE? 


Abb. 5.1-1 
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BASSYB 

0D66 6.1.0 0 1.2:lA 

0D6A BAB9 
0i;)6C 9E0B 
0D6E 
i)D6E 

0D6E. 61.00 J.2;L8 

0i:)72 BAB9 
{)D7^ 9E0B 
0i:)76 
0076 

0i;)76 D301. 

0i;)7B 7605 1.^76 

0D7C 

0D7E 5E07 09AE 
0i:)B2 

OlXH 5E05 09AE 
ODBB 21.'fO 
ODBA OD'IO 
ODBC BDOO 
ODBE OliÜ^O 
0D90 5E0E 09AE 

0D9't 6F0'4 I.21.A 

0D9B 030-1 OOB'1 

Oi:)9C 6F0-1 1.21.B 

ODAO AB'}:( 

0DA2 6F0'1 1.21.6 

0DA6 5E0B 0-1BC 

ODAA 
ODAA 

ODAA 7FFF 

ODAC 5E0B O^BC 

ODBO 
ODBO 

ODBO D31.E 

0DB2 93F5 

ODB-1 7606 ODBC 

ODBB 93F6 

ODBA lE-IB 

ODBC 

Oi;>BC 97F5 

ODBE D^FE 

ODCO 
ODCO 

ODCO D29B 

0DC2 93F'i 

ODC-^f D')DD 3D3D 0DD2 

ODCA D32B 

ODCC 97F0 

ODCE 3F0'4 

ODDO D507 

0DD2 

0DD2 5E0B 096A 

0DD6 

0DD6 

0DD6 D2A3 

ODDB 

ODDB B5-1^ 

ODDA EE01. 

ODDC D50D 

ODDF- 


mCRO B/BOOO 7B000 ABBEMBLEFv* 1. ♦2^1.E F^AOJE 2 
LD ROvBUFEND? 

CPB f;;li. yRLo; 
f;;et * 

LD ROyBUFFER? Abb. 5.1-1 

CPB RL1. >»RI...O$ 

RET; 

END1. i 

CAI..R EXPRt 
LD R5 r 6TXTE t 
CP R'FyR5t 
JP CY.ABÜRRY? 

ORB RFHvRFHt 
...JP MI?ABÜRRYS 
LD RO.MFiYlt; 

COM R^<^5 
COM RO? 

CP 

. JP N7 vABORFÜY? 

LD bufend^r^f; 

BUB R^!»;L32* 

LD BUFFER fR'F? 

DEC R'Fy2? 

LD TXTEND^R^; 

JP RBTARTt 

BYE ? 

BC 255? 

..JP RBTARl ? 

CAI...I...1.: 

CALR ELXPR? 

F^'UBH R1.5t?R5? 

LD R6MtHERE? 

PUBH RJ.5tfR6? 

JP R'F^? 

HERE; 

POP R5yR1.5'^? 

CALR FINI? , 

0UT1.: %NI.JR IN BYS MODE 
CAI...R PARN? 

PI.JBH R1.5^yR1? 

TE-BTC 'yFv-BDO? 

CALR EXPR? 

POP R0yR1.5'h? 

OUT RO^yF^’^? 

CALR FINI? 

RBOO t 
JP QWHAT? 

CAB? 

CALR F>ARM? 

AI. J 
OR 

JR N7yBK^H 
CALR F.LNI? 

BK'IJ 
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5.1 ZSOOO-Basic 


HDDE 

AB-'H) 


DEC R^lvi; 

ODEO 

C920 


LDB FVLly* •? 

0DE2 

Dl :IE 


CAI..P BUTC:; 


EBF9 


.JR Al? 

OOE6 




(]DE6 



INI t 

WE6 

D2AB 


CALR FARN? 

ODER 

a:i/io 


I D ROrR^t? 

ODEA 

3D(Kt 


IN R^MROt? 

BASSYS 



MACRÜ 8/80 0 0 Z8.0 0 0 ASSEMBLER 

ODEC 

9E0B 


RET ? 

ODEE 




OOEE 



üü; 

ODEE 

D33D 


CALR EXPR? 

ODFO 

93F!:; 


PUSH R15'^yR5? 

ODF2 

AD5^ 


EX R^yR5? 

ODF^I 

BDIB 


CLR RI? 

ODF6 

l:iFOO 

0A3B 

CAI .I... PRTSTG? 

ODFA 

97FS 


POP R5yR15'^? 

ODFC 

Dl^:l.D 


CAl.R FINI? 

ODFE 




ODFE 




ODFE 

D3^l2i 


CALR EXPR? 

OEO 0 

93F5 


PUSH R15^yR5? 

OE 02 

6105 

1 OlC 

ID R5yTXTUNF? 

OEO 6 

BB5-'i 


CP FHrR5? 

OEOB 

5E07 

09 AE 

JP CYvASORRY? 

OEOC 

6105 

1218 

LD R5fBUFFER? 

OE:lO 

D22B 


CALR GLl? 

0E12 

Al ^6 


LD R6fR^F? 

oe:l^ 

AD5^ 


EX R'FvR5J: 

0E:l.6 

AB-^O 


DI-:C R^yl? 

oe:L8 

6105 

1218 

L.D R5mBUFFER? 

oe:i.c 

93F5 


PUSH R15^yR5? 

oe:i.e 

Dl 9^1 


CALR ML^lIp? 

0E20 

0C6B 


CLRB R6^? 

0E22 

97F5 


F-'OI"’ F•!5yRl5'^? 

0E2^I 

A9'^0 


INC R'^yl? 

0E26 

B35^ 


SUB R'}yR5? 

0E2B 

AD5^ 


EX R^yR5? 

0E2A 

760^1 

10 0 0 

L.D R'L-I^LEGT? 

0E2E 

2E^D 


LDB R'‘FtyRL.5? 

0E30 

A9^}0 


INC R^}«1? 

0E32 

2E^5 


LDB R^^mRHH? 

0E3^ 

97F5 


PGP R5yR15^? 

0E36 

D53A 


CALR FINI? 

0E3B 




0E3B 



PEEKt 

0E3B 

D2D^\ 


CALR PARN? 

0E3A 

20'^C 


L.DB RI../1vR'^'i‘? 

0E3C 

BC'IB 


CLRB RLK? 

0E3E 

9E0B 


RET? 

OE^O 




OE'IO 



POF(E J 

OE^O 

D366 


CAI...R FrXPR ? 

0E^2 

93|r/| 


PUSH R15tyF:/}? 

OE^^ 

D51D 

2C2C 0E5'f 

TESTC •^'mRKi; 

OE'IA 

D36B 


CAL.R EXPR? 

oe'h:. 

A0C9 


LDB RLlyRL.-^? 

OE'IE 

97F^) 


POP R^yR15t? 

0E50 

2E't9 


LDB R^I'^yRLl? 
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0E52 

D!5^B 


CALFi; FINI? 




PK:l J 

0E5"} 

SEOB 

096A 

vJP QWHAT? 

0E5B 




oi":5e 



BYTElt 


D2E^ 


CALP PARN? 

0E!5A 

A0C9 


LDB RLls-RL^? 

0E5C 

Qpp-Q 


CAI..R WRIT2? 

0E5E 

r);5^E 


CAL.R fin::i; ? 

0E60 




0E6() 



WQRDl: 

()E60 

D2EB 


CAI...R PARN? 

ÜE62 

A0^9 


LDB R-LlvRI-H? 

(iE6^} 

DFFD 


CAI...R WFi;IT2? 

i)E66 

A0C9 


LDB Fi:Ll^'RL^? 

0E68 



CALR 

0E6A 

D‘5'5^ 


CAI...R FINI? 

(:iE6C 




BASBYB 



MACRÜ B/BOOO 

0E6C 



U|RIT2t 

0E6C 

93F1. 


PUBH R15t•RI? 

0E6E 

B3;i. :i. 


bf<:l R1^^? 

0E72 

DFFF 


CAI,..R IST? 

0E7^I 

97F:L 


PGP RI•RI5t? 

0E76 



IST? 

bE76 

0609 

OFOF 

ANDB RLImOFH? 

nE7A 

0 0 09 

9090 

ADDB RL1m90H? 

0E7E 

B090 


DAB RLl? 

OEBO 

CB'IO 


LDB RLOm-'IOH? 

0EB2 

B^m9 


ADCB RLImRLO? 

OEB^I 

B090 


DAB RLl? 

0EB6 

5E0B 

OB AB 

...IP ÜUTC? 

OEBA 




OEBA 



CSTAT t 

OEBA 

5F0 0 

03B0 

CAI...L. CSTS? 

OEBE 

A09C 


LDB RL/L^RLl? 

0E90 

BCyfB 


CI..RB Fv’l-H* 

0E92 

9E0B 


RET? 

nE9-^- 




0E9^I 



C^GÜTE ? 

0E9^ 

20!:^? 


LDB RL:l^R5t? 

0E96 

A950 


IMG R5«1? 

0E9B 

A09C 


LDB RI/F-RL15 

0E9A 

BC^B 


CLRB RhKI? 

0E9C 

D5'}9 

2727 OEA'{ 

TESTC 27HmASCI? 

0EA2 

9E0B 


RET? 

OEA-^ 



ASCI? 

OEA-'I 

f5E0B 

096A 

JP QWHAT? 

OE AB 




OE AB 



rOF-’ t 

OE AB 

6:l. i)^ 

10 IC 

LD R'lyTXTlINF? 

OEAC 

AB-'H) 


INC R-^yl? 

OE AE 

9E0B 


RErr ? 

OEi:;;o 




OEBO 



LENGTH? 

OEBO 

610^ 

10 0 0 

LD R^vLEG?T? 

OEB-^ 

AB^O 


i;)EC R^pI? 

0EB6 

9F.0B 


RET s 

OEBB 




OEBB 



GÜTCHAR ? 

OEBB 

D3A2 


CALR EXPR? 


msEmiJER 


:U2.1E PAQI 
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OEBA 

A0C9 



LDB RLlyRL-4J 

OEBC 

'5F() 0 

0BA8 


CALL ÜUTCJ 

OECO 

DS7F 



CALR FINi; 

OEC2 





0EC2 




INCHARl 

0EC2 

Dl 76 



CAI..R CHKIÜ? 

OEC'F 

A09C 



LDB RL-^yRLlt 

0EC6 

BC'FB 



CLRB RH^: 

0EC8 

9E08 



RET? 

OECA 





OECA 




HEXt 

OECA 

93F6 



PU8H R15'hyF;:6J 

OEGC 

8D^8 



CLR R-4: 

OECE 

D562 

2828 

OEF'f 

TE8TC 'CyHNZ.i 

OED^ 




HNXTH t 

OEi:>^ 

2059 



LDB RL1•FÜ5'^^ 

0Ei:)6 

0A09 

ODOD 


CPB RLl-ODH? 

OEDA 

5E06 

096A 


JP ZRmQWHAT: 

OEDE 

OFF'l 



CALR CNMBN? 

OEEO 

B3'F9 

0 0 0^ 


SLA R^y^t 

OEE'I 

8C18 



CLRB RHl? 

OEEA 

811-4 



ADD R-4yRi: 

0EE8 

A950 



INC R5yl? 

OEEA 

D570 

2929 

OED^ 

TESTC )’yHNXTHS 

OEFO 




PÜPRET$ 

OEFO 

97F6 



PÜP R6yR15'^? 

0EF2 

9E08 



RET? 
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OEF-^ 


OEF-'F 



HN2: 

OEF-4 

5E08 

096A 

JP DNHATt 

OEFB 




0EF8 



CNDBN: 

0EF8 

0A09 

3030 

CPB RLly * 0•? 

OEFC 

5E05 

096A 

JP MlyQWHAT? 

OFOO 

0A09 

3939 

CPB RLly'9‘; 

OFO'F 

E:509 


JR MlyCÜNTCt 

0F06 

E6 08 


JR ZRmCüNTC? 

0F08 

0A09 

-41'Fl 

CPB RLly'A'? 

OFOC 

5E05 

096A 

JP MlyQWHAT? 

OFl 0 

0A09 

^7'F7 

CPB RLly'C? 

OFl^ 

5E0D 

096A 

JP PLvQWHAT? 

OFl 8 



CÜNTC: 

OFl 8 

0209 

3030 

S>ÜBIH! RL.1 y • 0 ' ? 

OFIC 

0A09 

OAOA 

CPB RLlylO? 

OF20 

9E05 


RET MI? 

0F22 

0209 

0707 

BUBB RLlyZ? 

0F26 

9E08 


RET ? 

0F28 




0F28 



CGNT X 

0F28 

•5F0 0 

03BO 

CAU... CBTB? 

0F2C 

8511 


ÜR RI-RI? XFLAGB 

0F2E 

9E06 


RET ZR? 

0F30 

5F0 0 

037C 

CALL CI? 

OFB-^ 

0A09 

0303 

CPB RLl-3? 

0F38 

9E0E 


RET NZ? 

0F3A 

5E08 

O-'FBC 

JP RSTART? 


0F3E 

0F3E 

0F3E 

0F3E 5-1 


F>A0;i 
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0F3E:: ORIGIN ;l.0 0 0H^? 

1.000 

1000 % SPEICHFRZKLLEN 

1000 


1000 

LEGTJ 

WORD 

(1)5 

10 02 

lOBUFAJ 

BYTE 

(1)5 

10 03 

iobufb: 

BYTE 

(1) ; 

lOO-^» 

IOBUFC5 

liÜYTE 

(:l.) 5 

10 05 

lbtrom: 

BYTE 

(1)5 

10 06 

ocBw: 

BYTE 

(1)5 

1007 

nopnop: 

BYTE 

(1)5 

10 08 

currnt: 

WORD 

<1)5 

lOOA 

btkgob: 

WORD 

(1)5 

1OOC 

WARNXT: 

WORD 

(1)5 

10 OE 

btkinp: 

WORD 

(1)5 

1010 

L.OPMARJ 

WORD 

(1)5 

1012 

LOPINC: 

WORD 

(1)5 


LOPl.MT? 

WORD 

(1)5 

1016 

LOPLN: 

WORD<l)5 

1018 

LOPF-rx 

WORD 

(:l.) 5 

10 lA 

ranpnt: 

WORD 

(1)5 

101-C 

TXTUNF t 

WORD 

(1)5 

lOlE 

WORD (2 

0) ; 


10^6 

STKI...MT t 

WORD 

(1)5 

10^8 




10^8 

WOFJJD (2 

00)5 


11D8 

STACK? 

WORD 

(1)5 

1 IDA 

darbgn: 

WORD 

(30)5 

1216 

TXTEND? 

WORD 

<1)5 

1218 

BUFFER? 

WORD 

(1)5 

121A 

BUFEND? 

WORD 

(1)5 
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5.1.1 Z8000-Monitor 

Da es für den Z8000 noch keine Standard- 
Ein-Ausgabeprogramme gibt, wurde das 
Basic um einen Monitor erweitert, der je 
nach Hardware vom Leser leicht modifi¬ 
ziert werden kann. Der Monitor besitzt 
folgende Befehle: 

Lexpr Laden auf Adresse ,,expr”. Ein 
Programm kann im Binärformat 
in den Speicher geladen werden. 
Damit kann zum Beispiel ein Pro¬ 
gramm von einem anderen Com¬ 
puter in den Z8000 übermittelt 
werden. Das Format lautet wie 
folgt: OOFFFFFFOO LL LH 
data. 

„LL” bedeutet Anzahl der Da¬ 
tenbytes low Order, „LH” sind 
die Anzahl der Datenbytes high 
Order. ,,d a t a” sind die Daten, 
wobei immer erst die höherwerti¬ 
ge Stelle (high Order) und dann 
die niederwertige (low Order) 
Stelle folgt. 

Dexpr 1 Speicherzellen-Inhaltsanzeigen 
expr2 von Adresse „exprl” bis 
„expr2”. 

Eexpr Eingabe von Maschinenprogram¬ 
men per Hand. Programme kön¬ 
nen ,,hex” (sedezimal), beginnend 
von Adresse „expr”, eingegeben 
werden. Dafür gibt es noch eini¬ 
ge Zusatzkommandos: 

CR Beendet Eingabe ohne Ab¬ 
speichern des angezeigten 
Wertes. 

, Weiter (Adresse + 2) ohne 
Verändern 

— Zurück (Adresse — 2) ohne 
Verändern 

space Übergeben des Wertes in 
den Speicher. Wird keine 


Zahl eingegeben, so wird 
0 abgespeichert. Der Spei¬ 
cherinhalt sowie die Adres¬ 
se werden zur Kontrolle 
immer mit ausgegeben. 

Gexpr Starten eines Programmes bei der 
Adresse ,,expr”. Dabei werden 
die aktuellen Register übergeben. 

R Es erfolgt die Ausgabe der aktu¬ 

ellen Register. 

Der Z8000 besitzt eine phantastische Mög¬ 
lichkeit, um Standard-I/O-Funktionen an¬ 
deren Programmen zur Verfügung zu stel¬ 
len: den Supervisor-Call. Dies war bislang 
nur bei großen Computern der Fall. Das 
Basic benützt ausschließlich die Super¬ 
visor-Calls zum Aufruf von I/O-Routinen 
(außer im Falle des Direktportzugriffs). 
Folgende Supervisor-Calls werden zur Ver¬ 
fügung gestellt: 


SYS 0 Neustart des Monitorpro¬ 

gramms, kann als letzter Be¬ 
fehl in einem Anwenderpro¬ 
gramm verwendet werden. 

SYS 1 Eingabe eines Zeichens von 
der Konsole. Das Zeichen 
steht am Schluß im Register 
RLl. 

SYS 2 Ausgabe eines Zeichens. Das 

Zeichen steht zuvor im Re¬ 
gister RLl. 

SYS 3 Konsolstatus. In RI steht Null, 
falls kein Zeichen eingegeben 
wurde, sonst 8. 

SYS 255 Es werden alle Register auf 
der Konsole ausgegeben und 
das Monitorprogramm gestar¬ 
tet. Dieser Befehl kann zum 
Austesten von Programmen 
verwendet werden. Er ist we¬ 
gen der günstigen Codierung 
(7FFFH) leicht zu merken. 
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5.1.2 Der Basic-Interpreter 

Das Basic wird vom Monitorprogramm aus 
mit dem Befehl B gestartet. Wurde einmal 
ein Start durchgeführt, so kann z.B. nach 
einem Reset das Basic durch den Befehl N 
gestartet werden. Dabei wird ein bestehen¬ 
des Basic-Programm nicht zerstört. 

Der Basic-Interpreter beginnt auf der 
Adresse 03A4H. Dort befindet sich eine 
Sprungtabelle für die Konsolaufrufe, so 
daß diese leicht verändert werden können. 
Das Basic ist praktisch eine Eins-zu-eins- 
Übersetzung des 8080-Basic aus den vor¬ 
hergehenden Kapiteln. Es wurden aber 
jene Funktionen vereinfacht, die sich mit 
dem Z8000 besser und schneller lösen las¬ 
sen. Bei der Übersetzung wurde folgende 
Konvention fast immer eingehalten: 

R1 ist der Akku, 

R4 ist das Registerpaar HL, 

R5 ist das Registerpaar DE, 

R6 ist das Registerpaar BC. 

Zur Funktionsbeschreibung kann die Er¬ 
klärung des RDK-Basic verwendet werden, 
da auch die Markennamen beibehalten 
wurden. Das Z8000-Basic läßt sich eben¬ 
falls in ein EPROM brennen und benötigt 
2 KWorte RAM von Adresse lOOOH an. 
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5.3 Glossar 

A 

Access: 

Zugriff, zum Beispiel zu einer.bestimmten 
Speicherzelle. 

A/D-Umsetzer: 

Analog-Digital-Umsetzer. Eine analoge 
Größe wird in eine digitale umgewandelt, 
z.B. eine veränderliche Spannung in ein 
Datenwort. 

Adresse: 

Eine Bezeichnung für einen bestimmten 
Speicherplatz oder eines Speicherbereiches. 

Akkumulator: 

Es handelt sich um ein Register, über das 
arithmetische und meist auch logische Be¬ 
fehle ausgeführt werden können. Der Ak¬ 
kumulator hat direkte Verbindung mit 
dem Rechenwerk. 

ALE: 

Adress Latch Enable. Übernahme einer 
Adresse in einen Speicher durch dieses 
Signal. 

ALGOL: 

Algorithmic Language. Es handelt sich um 
eine Programmiersprache für technisch¬ 
wissenschaftliche Probleme. Sie ist auch auf 
Mikroprozessoren verfügbar, z.B. von 
Lifeboat für den 8080. 

Alignment: 

Abgleich, Justierung. 

ALU: 

Arithmetic Logic Unit, Rechenwerk. In 
diesem Teil des Rechners werden die arith¬ 
metischen und logischen Befehle ausge¬ 
führt. 

APL: 

Eine Programmiersprache für den tech¬ 
nisch-wissenschaftlichen Bereich, speziell 
auch für den Dialogbetrieb. 

APU: 

Arithmetic Processor Unit. Ein Gleit¬ 
kommarechner z.B. 


ASCII: 

Amercian Standard Code for Information 
Interchange. Ein häufig gebrauchter Code 
für Informationsübertragung. Auch mit 
ISO-7-Bit-Code bezeichnet (DIN 66003) 
[ 2 ]. 

Assembler: 

Ein Übersetzungsprogramm, das eine ma¬ 
schinennahe Programmiersprache in den 
Maschinencode übersetzt. 

Assoziativ-Speicher: 

Ein Speicher, bei dem der Zugriff nicht 
über eine bestimmte Adresse, sondern 
über den Speicherinhalt erfolgt. 

Asynchron: 

Taktunabhängige Betriebsweise. 

Available: 

Verfügbar. 


B 

Bank selekt: 

Kann der Speicher von einem Mikropro¬ 
zessor mangels genügend Adressensignale 
nicht voll adressiert werden, so kann der 
Speicher in Bereiche (Banks) unterteilt 
werden, die dann durch einen eigenen 
Hardwaremechanismus angewählt werden. 

BAS-Mischer: 

Aus den Synchronsignalen und dem Video¬ 
signal wird ein genormtes Signal zur An¬ 
steuerung von einem Videomonitor er¬ 
zeugt. 

Basic: 

Beginners’ All-purpose Symbolic Instruc¬ 
tion Code. Eine einfache dialogorientierte 
Programmiersprache, die in großer Viel¬ 
falt für Mikrocomputer erhältlich ist. 

Baud: 

Messung des Datenflusses, wobei die Zeit 
zur Übertragung des kürzesten Elementes 
als Maß genommen wird. Führt jedes Ele¬ 
ment ein Bit, so ist die Baudrate zahlen- 
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mäßig der Anzahl Bits pro Sekunde, z.B. 
1200 Bd bei nianchen Kassetten-Inter- 
faces. [4, 5] 

Betriebssystem: 

Darunter versteht man eine Reihe von Pro¬ 
grammen, die es dem Computer ermögli¬ 
chen, selbständig Programme zu bearbei¬ 
ten. CP/M ist zum Beispiel ein einfaches 
Betriebssystem für den 8080/Z80. 

Bildwiederholspeicher: 

Bei einem Datensichtgerät ist dieses der Spei¬ 
cherteil, in dem die darzustellenden Zei¬ 
chen stehen. Er muß sowohl vom CRT- 
Controller als auch von einer weiteren 
Steuereinheit (z.B. der CPU) ansprechbar 
sein. 

Bit: 

Binary Digit. Kleinste Informationseinheit. 
Bootstrap-Loader: 

Urlader. Ein Programm, das es dem Com¬ 
puter ermöglicht, Programme zu laden. 
Dabei wird meist zunächst ein weiterer 
Lader geladen, der dann seinerseits in der 
Lage ist, größere Programme zu laden. So 
wird zum Beispiel auch das CP/M-Betriebs- 
system geladen. 

Branch: 

Verzweigung, bedingter Sprungbefehl. 
Buffer: 

Puffer. Speicher, in dem Daten kurzzeitig 
festgehalten werden, oder auch Treiber 
zum Schalten von größeren Lasten, z.B. 
von Lampen oder Relais. 

Bubble memory: 

Magnetblasenspeicher. 

Bus: 

Sammelleitung, an die mehrere Bausteine 
angeschlossen werden können. Beispiele: 
Adressenbus, Datenbus, lEC-Bus. 

Busy: 

Besetzt, belegt, beschäftigt. 

Byte: 

8 Bits (= 2 Hex-Digits!). 


C 

Cartridge: 

Kassette, z.B. Magnetband-Kassette, 
Speichermodul usw. 

CCD memory: 

Ladungsgekoppelte Speicher. 

Clock: 

Takt; Uhr. 

COBOL: 

Common Business Oriented Language. 

Eine Programmiersprache für vorwiegend 
kaufmännische Aufgaben. Sie ist unter 
dem Betriebssystem CP/M auch für Mikro¬ 
computer erhältlich. 

Compiler: 

Ein Übersetzungsprogramm, das eine hö¬ 
here Programmiersprache in den Maschi¬ 
nencode übersetzt, bevor das Programm 
gestartet wird. 

Conditional: 

Bedingt. Beispiel: Conditional Branch. 
Controller: 

Steuereinheit. Beim lEC-Bus ist es das Ge¬ 
rät, das auch Steuerinformation aussenden 
darf, um z.B. Daten von anderen Geräten 
anzufordern, also der Zentralrechner. 

Conversion: 

Übersetzung, Umcodierung. 

Core: 

(Magnet-) Kern (-Speicher). 

CP/M: 

Disk Operating System für den 8080,ent- 
wickelt von Digital Research. 

CPU: 

Central Processing Unit. Zentraleinheit 
eines Computers, bestehend aus Rechen¬ 
werk und Steuerwerk. 

Cross-Assembler: 

Ein Assembler, der nicht auf der Maschi¬ 
ne, für die er den Maschinencode erzeugt, 
lauffähig ist. Es gibt so zum Beispiel einen 
Cross-Assembler für den 6800, der auf 
dem 8080 unter CP/M läuft. 
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Cross-Compiler: 

Ein Compiler, der auf einer anderen Ma¬ 
schine läuft als auf der, für die er den Ma¬ 
schinencode erzeugt. 

CRT: 

Cathode Ray Tube. Bildröhre, auch Da¬ 
tensichtgerät. 

Cursor: 

Sichtmarke zur Kennzeichnung der aktu¬ 
ellen Schreibposition in Datensichtgeräten. 

D 

Daisy chain: 

Kette. Verkettung, z.B.: Um Interrupt- 
Prioritäten festzulegen, können von einem 
Baustein zum anderen Signale geführt wer¬ 
den, die nicht nach dem Prinzip einer 
Busleitung arbeiten. Statt dessen wird 
durch geographische Anordnung die Pri¬ 
orität festgelegt. 

Data acquisition: 

Datenaufnahme, Datensammlung. 

Data logger: 

Meist ein Gerät zur Aufnahme von analo¬ 
gen Daten und deren Umwandlung in eine 
digitale Darstellung. Die Daten können 
dann von einem Rechner ,,abgeholt” wer¬ 
den. 

Debugging: 

Fehlersuche und -beseitigung („Entwan- 
zen”). 

Dense graphic: 

Mittlere Dichte bei Graphicdarstellungen, 
z.B. 256 X 128 Punkte. 

Density: 

Dichte. Zum Beispiel haben ,,double den- 
se”-Floppies doppelte Datendichte. 

Device: 

Gerät, Einheit. 

D/A-Umsetzer: 

Digital-Analog-Umsetzer. 

Dialoggerät: 

Gerät zur direkten Datenein- und Ausgabe. 


Digit: 

Ziffer, Stelle; üblicherweise dargestellt 
durch 4 Bits. 

Digitalisierer: 

Ein Gerät zur Eingabe von graphischen 
Darstellungen, z.B. mit einem Griffel oder. 
Fadenkreuz auf einer speziellen Digitali¬ 
sierungsoberfläche. 

Direct access: 

Direkter Zugriff, z.B. auf den Bildwieder¬ 
holspeicher durch die CPU. 

Directory: 

Inhaltsverzeichnis, z.B. einer Floppy Disk. 
DMA: 

Direct Memory Access. Direkter Zugriff 
auf den Speicher eines Rechners, wobei 
die Zugriffssteuerung nicht vom Rechner 
vorgenommen wird, sondern zum Beispiel 
von einer Peripherie-Einheit (z.B. Floppy- 
Laufwerk). 

DOS: 

Disk Operating System. Ein Programm, 
das es ermöglicht, mit einer Floppy oder 
einem Plattenspeicher zu arbeiten; 
CP/M(8080/Z80), FLEX(6800/6809), 
oder ISIS(8080) sind solche DOS. 

Dreileiterhandshake: 

Wird z.B. beim lEC-Bus verwendet, um 
einen Datenaustausch zu synchronisieren. 

Drum storage: 

Trommelspeicher (heute veraltet). 

Dump: 

Auszug eines Speicherinhalts, meist hexa¬ 
dezimal. 

Durchsatz: 

Anzahl der Operationen, die ein Compu¬ 
ter in einer Zeiteinheit leistet. 

Dynamische Speicher: 

Bei solch einem Speicher muß die Infor¬ 
mation zyklisch aufgefrischt werden. Vor¬ 
teil ist die Verfügbarkeit von hohen Spei¬ 
cherkapazitäten bei geringem Leistungs¬ 
verbrauch und kleinem Preis im Vergleich 
zu statischen Speichern. 
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E 

EAROM: 

Electrically Alterable Read-Only Memory. 
Festwertspeicher, der sich nicht nur elek¬ 
trisch programmieren, sondern auch elek¬ 
trisch löschen läßt. 

EBCDIC-Code: 

Extended Binary Coded Decimal Inter¬ 
change Code. Ein alphanumerischer 
8-Bit-Code. 

Editor: 

Ein Programm zur Eingabe , Änderung 
und Ausgabe von Texten für Source-Pro¬ 
gramme oder Textverarbeitung. 

ELIZA: 

Ein Dialogprogramm, das einen Psycho¬ 
logen darstellt und zur Erprobung von 
künstlicher Intelligenz erstellt wurde. 

Emulation: 

Softwaremäßige Nachbildung eines Com¬ 
puters, so daß der Befehlssatz eines 
Computers, der nachgebildet wird, auf 
einem anderen verfügbar ist, wenn auch 
die Ausführungszeit im allgemeinen kleiner 
ist als auf dem realen Computer. 

Enable: 

Freigabe. 

to enter: 

Eingeben. 

EOC: 

End Of Conversion. Ein Signal, das das 
Ende einer Umwandlung anzeigt. 

EPROM: 

Erasable Programmable Read Only Me¬ 
mory. Ein mit ultraviolettem Licht lösch¬ 
barer, aber elektrisch programmierbarer 
Festwertspeicher. 

to erase: 
löschen. 

Error: 

Fehler, Irrtum (Das von Computern am 
liebsten ausgegebene Wort). 


Europakarte: 

Leiterplatte mit genormten Format: 

100 mm X 160 mm. 

Evaluation module: 

Entwicklungseinheit. 

Even odd parity: 

Gerade/ungerade Parität (binäre Quersum¬ 
me). 

Exorciser: 

Hilfsgerät zur Entwicklung von Mikrocom¬ 
putersystemen mit der CPU-Familie 6800. 

Expression: 

Ausdruck. 


F 

Fan-in: 

Eingangslastfaktor. 

Fan-out: 

Ausgangslastfaktor. Er gibt an, wieviele 
Bausteine der gleichen Logikserie an ei¬ 
nen Ausgang mit dem angegebenen Fan¬ 
out angeschlossen werden können. 

Fifo: 

First In/First Out-Speicher. Zuerst ein¬ 
gehende Daten werden auch zuerst wieder 
ausgegeben. 

File: 

Datei. Eine Ansammlung von Datengrup¬ 
pen, die in einer Datei abgelegt werden. 

Firmware: 

Software, die fest zur Funktionsfähigkeit 
eines Systems z.B. in einem ROM vorhan¬ 
den ist. 

Fixed-point: 

Festkomma (z.B. auf Mark und Pfennige 
mit stets 2 Kommastellen). 

Flag: 

Eine Marke oder ein Flipflop zum ,,Fest¬ 
halten” eines Zustands (Merker). 

Floating-point: 

Gleitkomma-Darstellung von Zahlen, 
meist mit Zehnerexponent. 
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Floppy Disk: 

Ein billiger Massenspeicher mit Kapazitä¬ 
ten von 90 kBytes (Minifloppy) bis 2 
MByte (große Floppy mit Quad dense). 

Fortran: 

Formula Translation. Eine problemorien¬ 
tierte Programmiersprache, die für tech¬ 
nisch wissenschaftliche Aufgaben ausge¬ 
legt ist. Für Mikrocomputer gibt es eine 
Vielzahl von Fortran-Compilern. 

Front Panel: 

Bedienungsfeld. 

G 

Gate: 

Verknüpfungsschaltung (NAND, NOR, 
EXOR usw.). 

H 

Händler: 

Routine zur Kontrolle eines peripheren 
Gerätes. 

Handshake: 

Quittungsbetrieb. Methode, um Geräte 
mit verschiedenen Arbeitsgeschwindigkei¬ 
ten durch den Austausch von Steuersigna¬ 
len zu synchronisieren. 

Hardcopy: 

Kopie auf Papier. Zum Beispiel ein direk¬ 
ter Ausdruck des aktuellen Bildschirmin¬ 
halts. 

Hardware: 

Damit sind alle Bauteile bzw. Geräte eines 
Systems gemeint. 

hexadezimal: 

Siehe sedezimal. 

High Order: 

Höherwertige Stelle. 


I 

ICE: 

In-Circuit-Emulator. Mit Hilfe einer 
,,Nabelschnur”, an deren Ende z.B. ein 
Sockel für die Z80-CPU ist, kann von ei¬ 
nem Entwicklungssystem aus der Ablauf 
in einem Mikroprozessor-Anwendungs¬ 
system verfolgt werden. 

lEC-Bus: 

Schnittstellennorm, um 8 Bit parallel und 
byteseriell Daten austauschen zu können. 

to include: 

Beinhalten, einschließen. 

Increment: 

Schrittweises Erhöhen eines Wertes um 1. 

Index-Register: 

Ein Register zur Modifikation der Ope¬ 
randenadresse eines Befehls. Damit ergibt 
sich z.B. durch Addition des Inhalts des 
Index-Registers zum Adreßteil eines Be¬ 
fehls eine neue ,,effektive” Adresse. 

Initialisierung: 

Die Anfangsschritte in einem Programm, 
um definierte Startwerte zu erhalten, 
z.B. I/O-Ports, Stackpointer usw. 

Input: 

Eingabe. 

Instruction: 

Befehl, Anweisung. 

Interface: 

Schnittstelle. Mit Hilfe eines Interface 
können zwei Systeme (z.B. Computer 
und Drucker) einander angepaßt werden. 

Interpreter: 

Ein Interpreter ist ein Programm, das z.B. 
Befehle einer höheren Programmierspra¬ 
che ausführt, ohne sie vorher in den Ma¬ 
schinencode zu übersetzen (vgl. Compi¬ 
ler). 

Interrupt: 

Unterbrechung. Durch einen Interrupt, 
den meist ein Peripheriegerät anfordert, 
wird das gerade laufende Programm un- 
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terbrochen und eine spezielle Unterbre¬ 
chungsroutine ausgeführt. Danach erfolgt 
ein Rücksprung in das unterbrochene Pro¬ 
gramm. 

J 

Job: 

Auftrag. 

Joystick: 

Ein Kreuzknüppel-Potentiometer, das zur 
Eingabe von Daten verwendet werden 
kann, vorwiegend in Kombination mit 
grafischen Geräten. 

Jump: 

Sprung. 

Jumper: 

Leitungsbrücke. Mit Jumper wird im Jar¬ 
gon eine Brücke zur Einstellung von Para¬ 
metern, wie z.B. einer Perpherieadresse, be¬ 
zeichnet. 

K 

Keyboard: 

Tastatur. 

Kit: 

Bausatz. 

Kompatibel: 

austauschbar, aneinander angepaßt. 

L 

Label: 

Marke. In Programmiersprachen ist damit 
meist eine symbolische Adresse (d.h. ein 
Name) gemeint, auf Magnetbändern z.B. 
ist damit ein Identitätskennzeichen ge¬ 
meint. 

Lichtgriffel: 

Ein Stift, der zur Eingabe von Daten di¬ 
rekt über die Bildfläche geeignet ist. Dazu 
liefert er immer dann einen Puls, wenn der 
Schreibstrahl des Sichtgerätes auf die Op¬ 
tik des Griffels trifft. 


Lifo: 

Last In/First Out. Zuletzt gespeicherte 
Daten werden zuerst ausgegeben (Stack). 

Linker: 

Ein Programm, das mehrere Teilprogram¬ 
me, die schon assembliert wurden, zu ei¬ 
nem binden kann. Dazu muß der Assem¬ 
bler die nötige Information dem Linker 
übergeben können. 

LISP: 

List Processing. Eine Programmiersprache 
für die Verarbeitung von Listen und re¬ 
kursive Datenstrukturen. Die Sprache eig¬ 
net sich besonders für AI (artificial in- 
telligence — künstliche Intelligenz). Das 
bekannte Programm ELIZA wurde z.B. 
zunächst in LISP programmiert. 

Listener: 

Name, der beim lEC-Bus verwendet wird. 
Ein Gerät, das Daten vom lEC-Bus empfan¬ 
gen kann, heißt Listener. 

Listing: 

Ausdruck. Auflistung. 

Loader: 

Ein Ladeprogramm. 

Logic analyzer: 

Ein Hilfsgerät zum Testen von Digital¬ 
schaltungen, mit einer Anzeige für die lo¬ 
gischen Zustände in dieser Schaltung. 

Loop: 

Schleife. Durch einen Sprung rückwärts 
kann zum Beispiel eine Schleife in einem 
Programm entstehen. 

Low Order: 

Niederwertige Stelle. 


M 

Makro: 

Mit Hilfe einer Makroanweisung kann der 
Programmierer in Assemblern eine Folge 
von Befehlen definieren, die durch Angabe 
des Makronamens in dem Assemblerpro¬ 
gramm durch den Assembler bei der Über- 
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Setzung eingefügt werden. Dabei können 
durch Parameterangaben die eingefügten 
Befehlssequenzen variiert werden. 

Maschinencode: 

Maschinensprache. Damit ist ein Binär¬ 
code gemeint, der vom Mikrocomputer 
z.B. direkt verstanden wird. 

Maske: 

Ein Bitmuster, mit dem bestimmte Bit¬ 
gruppen ausgeblendet, komplementiert 
oder eingefügt werden. 

Memory: 

Speicher. 

Mikroprogrammierbar: 

Der Befehlssatz mancher Prozessoren kann 
mit Hilfe von Mikrobefehlen definiert 
werden. 

Mikrocomputer: 

Besteht aus einem Mikroprozessor, Spei¬ 
chern und Peripherie. 

Mikroprozessor: 

Ein integrierter Baustein, als Teile eines 
Mikrocomputers, der ein Leit- und ein 
Rechenwerk besitzt. Der interne Ablauf 
kann in der Regel von außen durch Soft¬ 
ware beeinflußt werden. 

Mnemonischer Code: 

Leicht zu merkende Kurzwörter, deren 
Inhalt auf die Verwendung schließen läßt. 
Derartige Kurzwörter werden in Assembler¬ 
sprachen eingesetzt, z.B. LDA, STA, JMP 
usw. 

Modem: 

Modulator und Demodulator. Eine Schal¬ 
tung, die Daten für die Fernübertragung 
aufbereitet. 

Monitorprogramm: 

Ein Programm, das dem Benutzer den ele¬ 
mentaren Umgang mit dem Computer er¬ 
möglicht. 

Multiplex: 

Übertragung von mehreren verschiedenen 
Informationen, die dazu zeitlich hinter¬ 
einander übertragen werden. 


Multiprozessing: 

Aufbau eines Rechners mit mehreren 
CPUs oder Teilcomputern. 

N 

Nesting: 

Verschachtelung; zum Beispiel Verschach- 
teln von Interrupts oder Unterprogram¬ 
men. 

O 

Off-line: 

Der Benutzer ist dabei nicht hardware¬ 
mäßig mit dem Computer verbunden, son¬ 
dern der Verkehr wird über Datenträger 
abgewickelt. 

Oktal: 

Zahlendarstellung zur Basis 8. 

On-line: 

Dabei ist das Terminal des Benutzers über 
eine Datenleitung direkt mit dem Compu¬ 
ter verbunden. 

Output: 

Ausgabe. 

P 

Packen: 

Dabei werden zum Beispiel zwei Dezimal¬ 
zahlen in einem Byte untergebracht, also 
„gepackt”. 

Parity: 

Parität, Gleichheit. 

Pascal: 

Eine höhere Programmiersprache, die zu¬ 
nehmend Verbreitung auch bei Mikrocom¬ 
putern findet. 

Pass: 

Lauf, z.B. eines Programms. 

Peripherie: 

Externe Datenend- und Speichergeräte. 
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PIA: 

Peripheral Inteurface Adapter. Ein Baustein, 
der den Ein- und Ausgabeverkehr zwischen 
dem Mikroprozessor und der Peripherie 
abwickelt. 

Pipelining: 

Fließbandverarbeitung. Durch diese Ver¬ 
arbeitungsform kann die Ausführungszeit 
stark verkürzt werden. Während ein Befehl 
gerade ausgeführt wird, wird der nächste 
Befehl schon geholt. Bei Sprungbefehlen 
ergeben sich im allgemeinen allerdings zu¬ 
sätzliche Verzögerungen. 

PL/1: 

Programming Language. Eine höhere Pro¬ 
grammiersprache, die ebenfalls für Mikro¬ 
computer erhältlich ist. 

PL/M: 

Programming Language for Microcompu- 
ters. Eine höhere Programmiersprache, die 
auf der Basis von PL/1 arbeitet und spe¬ 
ziell für Mikrocomputer entwickelt wurde. 

Pointer: 

Zeiger. Ein Speicherplatz, der eine Adres¬ 
se enthält. Mit einem Zeiger lassen sich 
leicht Stacks aufbauen (Stack-Pointer). 

Polling: 

Aufrufbetrieb, Aufruftechnik. Um z.B. 
die Quelle eines Interrupts festzustellen, 
werden alle in Frage kommenden Quellen 
nacheinander abgefragt. Dieser Vorgang 
wird mit ,,polling” bezeichnet. 

Port: 

Tor. Schaltkreise für die Ein-/Ausgabe 
von Daten. 

Power-on-Jump: 

Nach Einschalten der Stromversorgung 
wird ein Sprungbefehl durch eine Hard¬ 
wareschaltung vorgenommen, um z.B. in 
ein Monitorprogramm zu gelangen, dessen 
Anfangsadresse nicht mit der Adresse 
übereinstimmt, die nach einem Reset vom 
Prozessor angewählt wird. 


Programm: 

Eine Folge von Anweisungen (Befehlen), 
die zur Lösung eines Problems dienen sol¬ 
len. 

Programmierbarer Zeichengenerator: 

Der Zeichensatz kann durch den Prozes¬ 
sor frei programmiert werden. Damit ist 
es einfach möglich, Sonderzeichen, Schalt¬ 
symbole im Programm selbst festzulegen 
und zur Darstellung zu gebrauchen. 

Programmiersprachen: 

Eine Sprache zur Formulierung von Pro¬ 
grammen, die automatisch in die Maschi¬ 
nensprache übersetzt werden können. 

PROM: 

Programmable Read Only Memory. Ein 
programmierbarer Festwertspeicher. 

Pseudobefehl: 

Eine Instruktion, die eigentlich gar nicht 
vorhanden sein dürfte (gemäß den CPU- 
Herstellerangaben). 

to punch: 

Stanzen, lochen. 

Q 

Queue: 

Warteschlange. Daten werden in einer 
Warteschlange angesammelt, solange sie 
noch nicht verarbeitet sind. 

R 

RALU: 

Register und Arithmetic Logic Unit. Ein 
Prozessorelement mit einer ALU und eini¬ 
gen Registern. 

RAM: 

Random Access Memory. Ein Schreib-/ 
Lesespeicher mit wahlfreiem Zugriff. 

Reader: 

(Lochstreifen oder Lochkarten) Leser. 

Real Time: 

Echtzeit. Arbeitsweise eines Computers. 
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Real time clock: 

Echtzeituhr; eine Uhr, die die tatsächli¬ 
che Uhr bereitstellt. 

Redundanz: 

Teil einer Nachricht, die zur eigentlichen 
Information nichts mehr beiträgt. Sie 
kann aber zum Beispiel zur Fehlererken¬ 
nung oder Korrektur verwendet werden. 

Refresh: 

Wiederauffrischung. Wird bei dynamischen 
Speichern benötigt, um einen Informa¬ 
tionsverlust zu verhindern. 

Relokalisierbar: 

Ein Programm, das auf unterschiedlichen 
Speicherplätzen direkt lauffähig ist, heißt 
relokahsierbar. 

REPROM: 

Reprogrammable Read Only Memory. 

Ein Festwertspeicher, der sich löschen 
und wieder neu programmieren läßt. 

Request: 

Anfordern. Anforderung, 
to reset: 

Rücksetzen, in den Grundzustand bringen. 
Resident: 

Im eigenen System fest vorhanden, z.B. 
bei einem residenten Assembler. 

ROM: 

Read Only Memory. Ein Festwertspeicher, 
von dem nur gelesen werden kann. 

Run: 

Durchlauf. 


S 

to Scan: 

Abtasten. 

Schnittstelle: 

Pegel- und anschlußgenormte Verbin¬ 
dungsstelle zwischen zwei Geräten. 

sedezimal: 

Zahlendarstellung zur Basis 16 mit den 
Ziffern 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F; 


häufig auch mit Hexadezimalsystem be¬ 
zeichnet. 

to select: 

Auswählen. 

to sense: 

Abtasten. 

Simulator: 

Ein Programm, das einen Befehlssatz si¬ 
muliert, den die CPU eigentlich nicht be¬ 
herrscht. 

Software: 

Hierunter versteht man alle Arten von 
Programmen, wie auch Texte und Infor¬ 
mation. 

Source: 

Quelle. 

Space: 

Freiraum. 

Sparse graphic: 

Eine niedrig auflösende Grafik, z.B. 

128 X 128 Punkte. 

Stack: 

Stapelspeicher, Kellerspeicher. Merkmal 
für einen Stack ist, daß eine Informations¬ 
einheit immer nur an der Stelle entnom¬ 
men werden kann, an der sie zuletzt hin¬ 
zugefügt wurde (LIFO). 

State: 

Zustand. Operationsschritt. 

Statement: 

Anweisung, Befehl. 

Statischer Speicher: 

Ein Speicherbaustein, der keine Wieder¬ 
auffrischzyklen benötigt. 

Steuerwerk: 

Dieser Teil im Computer kontrolliert die 
Ausführung sämtlicher Befehle. Er wird 
auch mit Leitwerk bezeichnet. 

Subroutine: 

Unterprogramm. 
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Super dense graphic: 

Hoch auflösende Grafik, z.B. 

256 X 256 Bildpunkte. 

Supervisor: 

Ein Organisationsprogramm. 

Synchron: 

Ein Takt steuert den genauen Ablauf. 

Syntaxdiagramme: 

Eine besondere Art in Diagrammen 
Sprachbeschreibungen durchzuführen. 
Wurde durch die Pascal-Syntaxdiagramme 
bekannt. 


T 

Talker: 

Name aus der lEC-Bus-Definition; ein 
Gerät, das Daten auf diesen Bus senden 
kann, heißt Talker. 

Tape: 

Ein Magnetband oder Lochstreifen. 
Terminal: 

Datenendstation. Ein Gerät zur Datenein- 
und/oder Datenausgabe. 

Text-Editor: 

siehe Editor. 

Time sharing: 

Zeitscheibenverfahren. Dabei können meh¬ 
rere Benutzer auf ein und denselben Com¬ 
puter zugreifen. 

Timing: 

Zeitablauf. 

Tiny: 

Klein. Tiny Basic zum Beispiel bedeutet 
eine Teilmenge des Standard-Basic. 

Trace: 

Ablaufverfolgung. Ein Programm kann 
durch die schrittweise Ausführung und 
Protokollierung überwacht und damit ein 
Fehler leichter gefunden werden. 

Track: 

Spur, Bahn; eine Floppy ist beim 8-inch- 
Format in 76 Tracks unterteilt. 


to transfer: 

Übertragen. 

U 

UART: 

Universal Asynchronous Receiver / Trans¬ 
mitter. Diese Schaltung übernimmt die 
Serien/Parallel- sowie die Parallel /Serien¬ 
wandlung für eine asynchrone Datenüber¬ 
tragung. 

Unit: 

Gerät, Einheit. 

Unterprogramm: 

Gleiche Befehlsfolgen, die in einem Pro¬ 
gramm mehrmals Vorkommen, werden 
im allgemeinen als Unterprogramm ausge¬ 
führt, so daß diese nur einmal im Pro¬ 
gramm auftreten und mit einem Unter¬ 
programmsprung vom Hauptprogramm 
aufgerufen werden. 

V 

V24: 

Schnittstellen-Norm für seriellen Daten¬ 
austausch. 

Valid: 

Gültig. 

Vektor-Interrupt: 

Von dem Gerät, das den Interrupt an 
den Prozessor gibt, wird zusätzlich ein 
Interruptvektor mitgeliefert, der dem 
Prozessor sagt, welche Unterbrechungs¬ 
routine ausgeführt werden soll. 

Volatile: 

Flüchtig, z.B. Halbleiterspeicher beim Ab¬ 
schalten der Versorgungsspannung. 

W 

Winchester Drive: 

Ein spezielles Verfahren, bei dem es durch 
hermetischen Abschluß gelingt, hohe 
Speicherdichten auf kleinem Platz zu er- 
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reichen. Z.B. 8 inch Platte von IMI mit 
22 M Bytes Kapazität auf drei Oberflä¬ 
chen. 

Worst case: 

Ungünstigster Fall. 

Wort: 

Zusammenfassung mehrerer Bits, sie kön¬ 
nen meist auch zusammenfassend verar¬ 
beitet werden (Z8000 CPU z.B. hat eine 
Wortbreite von 16 Bit). 

X 

XY-Recorder: 

Ein XY-Schreiber bzw. ein Plotter, der 
Kurven auf Papier ausgeben kann. 

Z 

Zeichengenerator: 

Meist ein Festwertspeicher, in dem ein 
Zeichensatz binär z.B. in Matrixform ge¬ 
speichert ist. 

Zugriff: 

Zugang z.B. zu einer bestimmten Speicher¬ 
zelle. 

Zyklus: 

Eine Anzahl von Schritten, die wiederholt 
werden und im Ablauf gewisse Änlichkei- 
ten aufweisen. 


Direkt-Befehle: 

LIST Listen eines Basic-Programms 

RUN Ausführen eines Basic-Pro¬ 

gramms 

NEW Löschen des Basic-Programms 

BYE Beenden des Basics 

END Speicherplatz neu besetzen 

Programmierbare Befehle: 

NEXT Schleifenende 

LET Anfang einer arithmetischen 

Zuweisung 
IF Bedingung 


GOTO 

Unbedingter Sprung 

GOSUP 

Unterprogrammsprung 

RETURN 

U nterprogrammrück- 
sprung 

REM 

Kommentar 

FOR 

Schleifenanfang 

INPUIT 

Eingabe 

PRINT 

Ausgabe 

STOP 

Beenden des Ablaufs 

CALL 

Unterprogrammaufruf — 
Maschinenprogramm 

OUTCHAR 

. Einzelzeichenausgabe 

OUT 

Ausgabe an Port 

0$ 

Ausgabe eines Textes 

1$ 

Eingabe eines Textes 

POKE 

Direkter Speicherzugriff 

TAB 

Tabulator ausgeben 

BYTE 

Sedezimalausgabe in Byteform 

WORD 

Sedezimalausgabe in Wortform 


Funktionen: 

RND 

Zufallswert 

ABS 

Absolutbetrag 

SIZE 

Speicherfreiraum 

PEEK 

Direktspeicherzugriff 

INCHAR 

Einzelzeicheneingabe 

HEX 

Umwandlung vom Sedezimal¬ 
system 

IN 

Porteingabe 


Einzelzeichenumwandlung 

TOP 

Erste freie Speicherzelle 

LEN 

Länge eines Strings 

CSTS 

Konsolstatus 

Divers: 

TO 

ln Schleifenanweisung 

STEP 

In Schleifenanweisung 


Vergleichsbefehle: 

>= 

# 

> 

<= 

< 
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Weitere 

Franzis Elektronik-Fachbücher 


Mikrocomputersysteme 

Selbstbau, Programmierung, 
Anwendung. 

Von Rolf-Dieter Klein 
2., verbesserte Auflage. 159 Sei¬ 
ten mit 133 Abbildungen und 11 
Tabellen. Lwstr-geb. DM 32,- 
ISBN 3-7723-6382-2 


Kaum zu glauben, daß ein Mikro¬ 
computer im Selbstbau herge¬ 
stellt werden kann! Daß dieses 
Vorhaben glückte, hat der Autor 
bewiesen. Wie ein hinreichend 
ausgebildeter Elektroniker das 
nachvollziehen kann, wird in 
dem Buch hier dargestellt. 
Zunächst muß die Hardware ge¬ 
schaffen werden. Eingabetasta¬ 
tur, Mikroprozessor, Speicher 
verschiedener Art, Drucker, 
Sichtgerät, das alles muß zu ei¬ 
ner funktionierenden Einheit zu¬ 
sammengeschlossen werden. 
Und das geht. Es geht sogar mit 
preiswerten, modernen Teilen, 
die in den einschlägigen Fach¬ 
handlungen zu haben sind. 

Nun die Software. Da zeigt der 
Autor mehrere Möglichkeiten 
auf. Nicht etwa nur ein kleines 
Programm, das immer wieder 
stupide abläuft. Nein, ausführli¬ 
che Programme werden vorge¬ 
stellt, die zahlreiche Spiele, ma¬ 
thematische Aufgaben, wissen¬ 
schaftliche Probleme bearbeiten 
können. 

Als Abschluß und Höhepunkt 
fügt der Autor Anregungen hin¬ 
zu, selbst Programme zu schrei¬ 
ben und in dem eigenen Mikro¬ 
computer zu erproben. Was will 
man mehr? 


Pascal: Einführung - 
Programmentwicklung - 
Strukturen 

Ein Arbeitsbuch mit zahlreichen 
Programmen, Übungen und Auf¬ 
gaben. Von Jürgen Plate und 
Paul Wittstock. 395 Seiten mit 
178 Abbildungen. 

Lwstr-geb. DM 48,- 
ISBN 3-7723-6901-4 

Das Buch könnte auch die Pas¬ 
cal-Fibel genannt werden. 
Schritt für Schritt führt es den 
Leser in das Programmieren mit 
Pascal ein. Die Autoren haben 
sich echt in die Ahnungslosigkeit 
des Anfängers hineinversetzt. 
Sie bringen ihm das besondere 
Denken des routinierten Pro¬ 
grammierers bei. Das Verblüf¬ 
fende dabei ist, sie kommen mit 
einer einfachen klaren Sprache 
aus, verabscheuen das EDV- 
Chinesisch, setzen nichts vor¬ 
aus, können wunderbar erklä¬ 
ren. Wer sich an dieses Buch 
heranmacht, meint, es gäbe 
nichts einfacheres als Pascal. 

Aus dem Inhalt: 

Einführung. Elemente von Pas¬ 
cal, Grundlagen. Einfache Kon¬ 
trollstrukturen. Variable, Kon¬ 
stante und Arithmetik. Eingabe 
und Ausgabe. Programment¬ 
wicklung. Prozeduren und Funk¬ 
tionen (Unterprogramme). Ty¬ 
pen. Mengen. Records. Files. 
Dynamische Strukturen. Text 
und Dokumentationshilfen. Inter¬ 
aktiver Verkehr. Ausflug in die 
Hardware. Ausblick. Anhang: 
Pascal Syntax. Fehlermeldung 
des Compilers. 


Basic für 
Mikrocomputer 

Geräte - Begriffe - Befehle - 
Programme. 

Von Herwig Felchtinger 
256 Seiten mit 40 Abbildungen. 
Lwstr-kart. DM 26,- 
ISBN 3-7723-6821-2 


Dieses praxisorientierte Buch ist 
Einführung und Nachschlage¬ 
werk zugleich. Begriffe aus der 
Computer-Fachsprache wie 
ASCII, RS-232-Schnittstelle oder 
lEC-Bus werden ebensö aus¬ 
führlich erläutert wie alle derzeit 
üblichen Befehlsworte der Pro¬ 
grammiersprache Basic. Markt¬ 
übliche Basic-Rechner werden 
einander gegenübergestellt - ei¬ 
nerseits, um vor dem Kauf die 
Qual der Wahl zu erleichtern, an¬ 
dererseits um das Anpassen von 
Programmen an den eigenen 
Rechner zu ermöglichen. Und 
schließlich findet der Leser 
handfeste Tips für das Erstellen 
eigener Programme und Bei¬ 
spiele fertiger Problemlösungen 
für typische Anwendungsfälle. 
Der Autor befaßt sich seit etwa 
1975 mit der Mikrocomputer- 
Technik. Im Rahmen seiner Tä¬ 
tigkeit als FUNKSCHAU-Redak- 
teur arbeitete er mit den meisten 
der hier beschriebenen Geräte 
selbst, was einen objektiven Ver¬ 
gleich möglich machte. 
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Weitere 

Franzis Eiektronik-Fachbücher 


Von der Schaltalgebra 
zum Mikroprozessor 

Die Mikroprozessoren und ihre 
festverdrahtete und program¬ 
mierbare Logik. 

Von Horst Pelka 
2., verbesserte und erweiterte 
Auflage. 339 Seiten mit 178 Ab¬ 
bildungen und 24 Tabellen. 
Lwstr-kart. DM 28- 
ISBN 3-7723-6422-5 


Mathematische Logik und elek¬ 
tronische Technik ergeben einen 
Mikroprozessor. Hier sind die 
Grundlagen dazu umfassend 
und doch kompakt dargestellt. 
Ausgegangen wird von den binä¬ 
ren Zahlensystemen und Codes, 
um so in die Grundlagen der Di¬ 
gitaltechnik einzudringen. Auf 
die verschiedenen bipolaren und 
MOS-Technologien integrierter 
Schaltungen wird ebenso einge¬ 
gangen, wie auf die Schaltungs¬ 
technische Realisierung von 
Verknüpfungsgliedern. Fllp- 
FlofDS, Schieberegister und Zeit¬ 
schältungen. Fast die Hälfte des 
Buches behandelt die Grundla¬ 
gen und Programmierung von 
Mikroprozessoren. Der Stoff ist 
einfach und klar dargestellt, viele 
Programmbeispiele erleichtern 
das Verständnis. 

Mit diesem Buch lernt der Leser 
das Gebiet der festverdrahteten 
Logik und das der Mikroprozes¬ 
soren kennen. Es ist Ihm mög¬ 
lich, Entscheidungen bei der 
Auswahl dieser festverdrahteten 
und programmierbaren Logik zu 
treffen. 


ABC 

der Mikroprozessoren 
und Mikrocomputer 

Neue Fachwörter und Abkürzun¬ 
gen für Elektroniker, Program¬ 
mierer und Praktiker verständ¬ 
lich gemacht. 

Von Horst Pelka 

(= RPB electronic-taschenbuch 

Nr. 135) 

159 Seiten mit 45 Abbildungen. 
Kart. DM 10,80 
ISBN 3-7723-1351-5 

Wer mit Mikroprozessoren und 
Mikrocomputern zu tun hat, soll¬ 
te dieses Taschenbuch immer 
bei sich tragen. Dann sind Ame¬ 
rikanismen und Buchstabenkür¬ 
zel jederzeit verständlich. 

Während einer Diskussion ist 
der Band ein hervorragender 
Spickzettel, der brillieren läßt. 
Bei der Lektüre von Fachzeit¬ 
schriften, Firmendruckschriften 
und Bedienungsanleitungen ist 
er ein zuverlässiges Dictionary 
und auch Glossarium. Die Zahl 
der Stichworte ist sehr groß. 


Was ist ein 
Mikroprozessor? 

über die Arbeitsweise, Program¬ 
mierung und Anwendung von 
Mikrocomputern. 

Von Horst Pelka 

(= RPB electronic-taschenbuch 

Nr. 82) 

5., neubearbeitete und erweiter¬ 
te Auflage. 130 Seiten mit 58 
Abbildungen und 5 Tabellen. 
Kart. DM 8,80 
ISBN 3-7723-0825-2 

Ja, was Ist nun ein Mikroprozes¬ 
sor? Seit wann gibt es ihn über¬ 
haupt? Wie ist er entstanden? 
Hat ihn jemand erfunden? Wie 
ist er aufgebaut? Welche Tech¬ 
nologien werden dabei verwen¬ 
det? Können einzelne Bausteine 
ausgetauscht werden? Ist er ei¬ 
ne Fortentwicklung der Mikro¬ 
computersysteme? Was ist ein 
1-Chip-Mikrocomputer? Wie ist 
seine Arbeitsweise? Ist er pro¬ 
grammierbar? Wie weit? Welche 
Programmiersprachen versteht 
er? Können seine Programme 
geändert werden? Kann das je¬ 
dermann? Ist die Programmie¬ 
rung stromausfalisicher? 

Was leistet ein Mikroprozessor? 
Wie und wo kann er angewandt 
werden? Wird er den Taschen¬ 
computer ersetzen? Gibt es be¬ 
reits Standardtypen? Inwieweit 
unterscheiden sie sich voneinan¬ 
der? Welches sind die Auswahl¬ 
kriterien für Anwendung? 

Fragen über Fragen! Die Ant¬ 
worten gibt dieser Band. 
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Klein 

Basic-Interpreter 



Rolf-Dieter Klein 


Wie man 8080- oder Z-80-Systeme nachträglich mit einem Basic- 
Interpreter ausrüsten kann, beschreibt dieses Buch. Dabei werden 
mehrere Ausführungen erörtert und beschrieben. Die beiden Inter¬ 
essantesten sind: Ein Tiny-Basic-Interpreter und ein komfortabler 
12-KByte-Basic-lnterpreter. Der letztere Ist einer der leistungsfähig¬ 
sten und ist deshalb im Objektformat aufgelistet wiedergegeben. Die 
Krönung bildet die ausführliche Beschreibung eines Basic-Interpreters 
für den 16-Bit-Prozessor Z8000. 

Großen Wert hat der Autor auf die Implementierung der unterschiedli¬ 
chen Systemkonfigurationen gelegt. Damit wird der Leser dieses 
Buches In die Lage versetzt, auch mal selber einen Interpreter für 
seine Zwecke zu konstruieren. Er kann auch besser mit Assembler 
programmieren, da dazu sehr viele Programmiertricks gezeigt 
werden. 




ISBN 3-7723-6941-3 
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